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FOREWORD 



This manual describes the operations available with the Advanced Continuous Simulation 
Language, ACSL (pronounced "axle"). This language was designed for modelling and evaluating 
the performance of continuous systems described by time dependent, non-linear differential equa- 
tions. 

In the development of the simulation system, emphasis has been placed on the ability to run 
and evaluate the model on-line. Provision has been made to overcome the usual problem of high 
data volume — monitoring information can be directed to the terminal, high volume output to a lo- 
cal line printer. 

In becoming familiar with this book, it is recommended that the reader look through Chap- 
ters 1 , 2 and 3 and then turn to the example programs given in Appendix A — making reference 
to the operators, Chapter 4, and run-time commands, Chapter 5, as necessary. These chapters list- 
ing the available operators are not designed for direct reading because of the alphabetic organiza- 
tion of the material. 

Before running a simulation, make sure Chapter 7 on program debugging has been studied. 
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1. INTRODUCTION 

Simulation of physical systems is a standard analysis tool used in the evalution of hardware design prior 
to actual construction. The continuous system simulation language described herein, and referred to as ACSL 
- Advanced Continuous Simulation Language - has been developed expressly for the purpose of modelling 
systems described by time dependent, non-linear differential equations and/or transfer functions.* Typical 
application areas are control system design, chemical process representation, missile and aircraft simulation 
or fluid flow and heat transfer analysis. Program preparation can either be from block diagram interconnec- 
tion, conventional FORTRAN statements or a mixture of both. 

Highlights of the language are free form input, function generation of up to three variables, and 
independent error control on each integrator. Flexibility is provided for plotting the behavior of the models 
under a number of external forcing functions. Many simulation oriented operators such as variable time delay, 
dead zone, backlash and quantization are included and made readily accessible. 

The ACSL program was intended to provide a simple method of repre tenting these mathematical models 
on a digital computer. Working from an equation description of the problem or a block diagram, the user 
writes ACSL statements to describe the system under investigation. Drive cards are written to exercise the 
model and these statements are keypunched and submitted for solution. An alternate mode is via a remote 
terminal such as a teletype; true on-line control is now possible with the user changing model constants and 
monitoring the resulting solutions. 

Statements describing the model need not be ordered since the ACSL processor will sort the equations 
so that no values are used before they have been calculated (applies only to the DERIVATIVE section of an 
explicitly structured program - see subsection 3.0). This operation of the language is to be contrasted to the 
usual digital programming languages like FORTRAN, where program execution depends critically on state- 
ment order. The ACSL sorting procedure is described in more detail in Subsection 3.2. 

1.1 JOB PROCESSING 

The cards supplied by the user are in two distinct groups - the first group contains those concerned with 
defining the model or structure of the system being simulated; the second group contains the sequence of 
commands that exercise this model - i.e., change parameters, start runs, control which plots to make. 

The model definition statements are read by the ACSL program which translates these to a set of 
intermediate FORTRAN programs. These FORTRAN programs are compiled, loaded with the ACSL 
Run-time Library and executed. The run-time drive cards now are read by the executive which decodes and 
executes commands in sequence - refer to Section 5 for a description of the commands usable at run-time. 
At least a START command is necessary at this point to exercise the model. 

1 .2 LANGUAGE FEATURES 

The language consists of a set of arithmetic operators, standard functions and a set of special statements 
and a MACRO capability which allows extension of the special statements, either at the system level for each 
installation, or for each individual user. The arithmetic operators are +, -, *, /, **, denoting addition, 
subtraction, multiplication, division and exponentiation. The functions are listed in Section 4 and consist of 
special ACSL operators such as QNTZR (quantization), UNIF (uniform random number), etc. In addition, 
all the functions of the FORTRAN library are available such as SQRT (square root), AMOD (modulus), 
etc. Integration is a special ACSL operator that is accomplished either by INTEG or INTVC, i.e. 

* The basic structure follows the specification established by the Technical Committee on Continuous 
System Simulation Languages and under the auspices of Simulation Councils, Inc. (SCi) in SIMULA- 
TION 9 (Dec. 1967) pp 281-303. 
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R = INTEG(X, RZERO) 

implies j 



£ 



R = RZERO + A Xdt 

This integration operator is the heart of the simulation system. In building any model, it is necessary 
to change differential operators into integration operators and this is conventionally accomplished by express- 
ing the highest derivative of a variable in terms of lower derivatives and other variables. As an example, 
consider the spring dashpot system excited by a given function of time F(t). In general form it can be written 

x + 2f cox + co 2 x = F(t) 

where co is the natural frequency and f the damping ratio. Expressing this equation in terms of the highest 
derivative x, we have 

x = F(t) - 2£ co x - co 2 x 

Since x appears on the right hand side, we must give it a name (XD). The two integrations can the be written 
as 

XD = INTEG(F(T) - 2*ZE*W*XD - W**2*X, XDIC) 

X = INTEG(XD, XIC) 

This process transforms the original set of differential equations to a set of first order equations which 
can be solved directly by integrating. 

It is necessary to be somewhat careful in the transformation process to avoid the introduction of 
redundant state variables. In the above sequence we could have avoided the reference to x (XD) by calculating 
x (XDD) directly and embedding an INTEG operator in the expression, i.e. 

XDD = F(T) - 2*ZE*W*INTEG(XDD, XDIC) - W**2*X 

Now X is the second integral of XDD so 

X = INTEG(INTEG(XDD, XDIC), XIC) 

In these two equations, there are three INTEG operators - each one a state variable - but two are integrations 
of XDD with the same initial condition, one of these is redundant and can be eliminated by explicitly naming 
the first derivative as shown previously. 

Before we give a detailed description of the language, let us code a simple problem using the arithmetic 
operators and the SQRT and INTEG functions defined above. 

The coding for the equations 

X = Y + X(l - X 2 - Y 2 )/VX 2 + Y 2 ; X(0) = 0.5 

Y = -X + Y(l - X 2 - Y 2 )/y/X 2 + Y 2 ; Y(0) =0.0 

is shown in Figure 1-1. 

While this series of statements completely describes the equations to be solved it does not represent the 
complete problem statement. Figure 1-2 lists the complete running program where each card is numbered for 
reference. To complete the model definition a PROGRAM card (1) is needed to start; the communication 
interval must be defined by the CINTERVAL operator (3); the termination condition must be specified as 
a logical expression forming the argument for the TERMT operator (7); and the model definition must be 
completed by an END card (8) which matches the PROGRAM card. This end card tells the translator nothing 
further is expected unless FORTRAN subroutines or functions are included. A further refinement is in 
assigning symbolic names for the initial condition, X(0) and Y(0), and for the stop time TSTOP. These are 
preset in the CONSTANT statement (2). 



1-2 



R2 = X**2 + Y**2 
X = INTEG(Y + X*( 1 .0 - R2)/SQRT(R2), 0.5) 
Y = INTEG(-X + Y*( 1 .0 -R2)/SQRT(R2), 0.0) 



Figure 1-1. Model Equations Corresponding to Mathematical Definition - Limit Cycle Problem 



MODEL DEFINITION CARDS 

(1) PROGRAM LIMIT CYCLE 

(2) CONSTANT XZ = 0.5, YZ = 0.0, TSTOP = 4.0 

(3) CINTERVALCINT = 0.1 

(4) R2 = X**2 + Y**2 

(5) X = INTEG(Y + X*( 1 .0 - R2)/SQRT(R2), XZ) 

(6) Y = INTEG(-X + Y*(1.0-R2)/SQRT(R2),YZ) 

(7) TERMT(T.GE.TSTOP) 

(8) END 



RUN-TIME DRIVE CARDS 

(9) OUTPUT T, X, Y 

(10) START 

(11) 'CHANGE INITIAL CONDITIONS AND RUN AGAIN' 

(12) SETXZ = 0.7 

(13) START 

(14) STOP 



Figure 1-2. Programs for Model Definition and Run-time Drive Cards - Limit Cycle Problem 

Once a symbol is assigned to a variable it can be changed at run-time. Embedding literal constants (the 
characters 0.5 are a literal constant) in the program is not good programming practice. It is much better to 
use a symbol preset to the value desired. Changes then occur in one place. 

In addition to the model definition statements, the run-time group of cards must be defined that tells 
how the model is to be exercised. These are separated from the model definition section by an end-of-record 
separator for a batch run (7-8-9 multipunch in column one on a CDC 6000/7000 machine) or else a separate 
file. Interactively the run time commands can come from a key board or a terminal. The OUTPUT statement 
(9) defines the variables which are to be listed at each communcation interval; then the model must be told 
to go by the command START (10). Card number eleven is a comment, twelve changes the intial condition 
and thirteen says run again. Card number fourteen terminates the simulation study. Section 1 of Appendix 
A lists the actual program and the output listing and plots obtained in solving this set of equations. 
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1 .3 CODING PROCEDURE 

The ACSL coding line contains eighty characters of which the first seventy-two are used for program 
information and 73-80 for identification, if needed. The ACSL statement may be placed anywhere on the card 
and the user should arrive at some standards to preserve a uniform appearance of the source text. Suggested 
standards are as follows: 

Section delineators - PROGRAM, INITIAL, DYNAMIC, END, etc., starting in column 1 

PROCEDURAL brackets - matching pairs of PROCEDURAL/ END statements starting in column 6 

Unlabelled statements - starting in column 7 

Labelled statements - label starting in column 6 

Assignment statements - ensure the equal sign (=) falls in column 15 or beyond 

These procedures are not necessary, but they make the resulting program much neater and easier to read. 

More than one statement can be placed on one card by separating them by a dollar sign ($). Any 
statement can be continued on to the next line by adding an ellipsis (three consecutive periods . . .) anywhere 
at the end of the card - to the right of any non-blank information but before column seventy- two. Any trailing 
blanks are squeezed out of the card containing the ellipsis and the following card is added directly - it is as 
though the characters were strung on the end after the last non-blank charcter of the preceding card, starting 
with column 1 . Leading blanks of the continuation card are not suppressed. Comments may be added by 
enclosing a complete statement in quotes. Note that neither a quote (') nor a dollar sign ($) can be part of 
a comment. Examples: 

'THIS IS A COMMENT CONTINUED ON TO . . . 

THE NEXT LINE' 
'THE NEXT LINE HAS TWO STATEMENTS' 

A = B + C $ X=Y+Z 
'COMMENTS CAN BE ADDED IN LINE AS . . . 

A SEPARATE STATEMENT' 

X = Y + Z $ 'ASSIGN VALUE TO X' 
'NEXT ARE TWO LABELLED STATEMENTS' 

LABEL . . C = D + 50 

1000 . . FORMAT(lX, 3E12.5) 
Blank lines can be interspersed throughout the code in order to help produce an attractive program format. 

1 .4 RESERVED NAMES 

The only reserved names in the language are those of the form ZOnnnn and ZZaaaa, where 'n' is any 
digit and 'a' is any alphanumeric character. All generated variables and system subroutine names are in this 
form. However, it behooves you, the user, to keep in mind the system variable default names listed in Table 
1-1. These default names can be changed to any name you please, but if you do not, the default names will 
be in existence so they can be set by program control in the model definition section. Other uses of these names, 
e.g., defining MAXT as a state variable, could cause conflicts. 
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TABLE 1-1. System Variable Default Names 


Set By 
Statement 


Default 
Name 


Default 
Value 


Definition 


CINTERVAL 


CINT 


0.1 


Communication Interval 


MINTERVAL 


MINT 


1.0E-10 


Minimum Calculation Interval 


MAXTERVAL 


MAXT 


1.0E+10 


Maximum Calculation Interval 


NSTEPS 


NSTP 


10 


Number of Calculation Intervals 


VARIABLE 

ALGORITHM 

ERRTAG 


T 
IALG 

none 


0.0 

5 

.FALSE. 


Independent Variable 
Integration Algorithm 
Error Indicator 


NOTE: It is probabl 


y a good idea to treat these names as reserved and not use them 


for any purpose exce 


pt that stated. 







A second level of names is the run-time executive system constants listed in Appendix C. These are flags 
and numeric values that determine the manner in which plots are going to be made, print intervals, etc. 

Such quantities as the y-axis length in inches (YINCPL) for line plots, number of points between grid 
lines in the x-direction for printer plots (NGXPPL) can be under user's control - at run-time - if desired. All 
these symbols have a default value that is chosen for reasonableness. Access is by normal SET commands, 
i.e., 

SET YINCPL = 5.0 

Any symbol in the SET command causes a search of the user's dictionary - established by the symbols in the 
model definition code - and if that is unsuccessful, the dictionary of run-time system symbols is searched. Thus, 
if you use one of the system constants as a name in the program, that use will override the internal use within 
the run- time executive. It merely means that you will not have the luxury of modifying the system default 
value. 

1.5 FORTRAN SUBROUTINES 

Any user defined FORTRAN function or subroutine may be used in the simulation program by including 
it following the END card that matches the PROGRAM card. The translator looks for the following: 

REAL FUNCTION 

INTEGER FUNCTION 

LOGICAL FUNCTION 

SUBROUTINE 

FUNCTION 

PROGRAM 

and if found, assumes all the rest of the cards in the model definition section are to be passed directly to the 
FORTRAN compiler. The format of these cards is not changed in any way so FORTRAN card format must 
be followed exactly, i.e. start in column seven or beyond etc. 

The only change the translator makes is to look for a dollar sign ($) in column one. This card is replaced 
by the simulation common block and type statements - which may run to many cards - so making available 
to the subroutine the names and values accessible in the main program. 
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WARNING: There is no selectivity in this process - either all the symbols are obtained or none. It 
is easy to get name conflicts and also violate the translator sorting algorithm by this 
action. 
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2. LANGUAGE ELEMENTS 



The following list of language elements must be understood before proceeding to the next section which 
describes the individual ACSL statements in detail. Most of the basic elements are defined the same as in 
FORTRAN with the exception of the list in Table 2-1, which lists the major differences between ACSL and 
FORTRAN. A reader who is familiar with FORTRAN could continue to the next section at this point. 



TABLE 2-1 . Major Differences, ACSL to FORTRAN 



LABELS 



NAMES 

TYPES 

CODING 
CONTINUATIONS 

COMMENTS 



Symbolic as well as numeric labels allowed. 
Labels are separated from statements to which they 
are attached by two periods. 
Due to problems with MACRO expansions within 
labelled statements, it is recommended that labels 
only be used with CONTINUE statements. See 
LABELS section 2-3 for further information. 

No embedded blanks are allowed in names. 
Each name must have no more than SIX characters. 
Names should not be of form Znnnnn or ZZaaaa where 
n is any digit and a is any alphanumeric character. 

Variables starting with I, J, K, L, M or N are 
not automatically considered integer. All variables 
and functions are considered real, floating point 
variables unless typed explicitly otherwise. 

Free format - use any columns 1 through 72. 

An ellipsis (...) at the end of a line implies 
continuation onto the next card image. A non-blank 
column six has no significance in free format. 

A fully quoted statement is a comment and cannot 
contain another quote or dollar sign. A 'C in 
column one has no significance in free format. 



2.1 CONSTANTS 

Constants may be either integer, real, logical or Hollerith. An integer constant is a whole number, written 
without a decimal point or embedded blanks. Positive numbers may be prefixed with a plus sign; negative 
numbers must be prefixed with a minus sign. Length is implementation dependent (CDC 6600, about thirteen 
digits). Subscripts of arrays are limited to about five digits. 







+526 



-63 



476 



Examples: 

A real constant is written with a decimal point together with an optional exponent. Positive numbers may be 
prefixed with a plus sign; negative numbers must be prefixed with a minus sign. 

Examples: 3.E1 3.1416 31.416E-1 

-0.000345 0.347E03 -27.6E+220 
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Logical constants may be one of two values: 

.TRUE. .FALSE. 

Hollerith constants are strings of letters and digits and are defined differently for the translator and at 
run-time. The translator accepts the normal character count - an unsigned integer - followed by H, followed 
by the character string. The general form is 

nHhjh£ . . . h n 

Examples of this are 

3HSAM 12HCONTROL DATA 

1H) 5HLEAD 

Note that blanks are signficant in the character count. For the run-time executive, Hollerith strings are 
defined by enclosing in quotes - so implying that the quote character cannot be included in the Hollerith 
constants, i.e., 

SET TITLE = 'LIMIT CYCLE, RUN1' 

While literal constants can be used in expressions directly, there is no way of changing the value at 
run-time. The original source cards must be changed and the program retranslated, compiled and executed. 
If the same constant appears more than once, it implies more changes in the source text. Better programming 
practice is to give all constants symbolic names to be used in expressions, presetting these via CONSTANT 
statements; i.e., 

don't say 

AREA = 3.142*R**2 

Instead: 

CONSTANT PI = 3.142 

AREA = PI*R**2 

2.2 VARIABLES 

Variable names are symbolic representations of numerical quantities that may or may not change during 
a simulation run. They refer to a location and have a value equal to the current number stored in that location. 
Both simple and subscripted variables may be used. A symbolic name must start with a letter and be followed 
by zero to five letters and digits (not more than SIX characters). All variables in an ACSL program are 
assumed to be of type REAL unless explicitly typed otherwise. The FORTRAN convention for integers 
starting with the letters I through N does not apply. 

Examples of simple variables: 

A A57 AB57D K20 

A subscripted variable may have one, two or three subscripts enclosed in parentheses. Subscripts can be 
expressions in which the operands are simple integer variables and integer constants, and the operators are 
addition, subtraction, multiplication and division only. For more information on storage allocation see AR- 
RAY statement - Section 4.12. 

Examples of subscripted variables names are: 

B(5, 2) B53(5*I + 2, 6, 7*K + 3) 

C47(3) ARRAY(2) 

In the above example I and K must be declared explicitly to be INTEGER variables. 
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2.3 LABELS 

A label may be attached to a statement so that control may be transferred to it by GO TO or used to 
label a FORMAT statement. Labels may be either: 

1) One through six alphanumeric characters with the first alphabetic 

2) One through five numeric characters (digits)* 

The labels must be set off from the statement to which they apply by two periods - i.e., 

LI . .X = A + B 

1000 . . Y = C + D 

GO TO LI 

Although it is legal to attach a statement label to any executable statement, it is recommended that these 
labels only appear on CONTINUE statements. Aside from the improvement in appearance, structure and 
modifiability, many problems can be avoided. The basic difficulty is that the statement body may contain 
MACRO calls. The effect of a MACRO call inside a statement - functional form - is that the macro is 
expanded first followed by the labelled statement. As an example, consider the random number generator, 
GAUSS which is implemented as a MACRO. It's use could be in a PROCEDURAL in a labelled statement 

GO TO LABEL 

LABEL . . X = GAUSS(MEAN, SIGMA) 
This would expand to the FORTRAN code 
GO TO 99996 

Z09999 = MEAN + GRV(ZZSEED)*(SIGMA) 

99996 X = Z09999 

Now the intermediate variable Z09999 won't be assigned a value if the GO TO transition is followed. 
However, if we use a CONTINUE instead 

GO TO LABEL 

LABEL . . CONTINUE 

X = GAUSS(MEAN, SIGMA) 
This code expands to 

GO TO 99996 

99996 CONTINUE 

Z09999 = MEAN + GRV(ZZSEED)*(SIGMA) 

X = Z09999 

which gives the correct sequence. The stand alone form of the MACRO works in this case and avoids the extra 
assignment statement, since no intermediate variable is generated, i.e. 



* The system uses labels starting at 99999 and works downwards. Labels with too high a value should not 
be used, else a conflict may result. 
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LABEL . . GAUSS(X = MEAN, SIGMA) 
becomes* 

99996 X = MEAN + GRV(ZZSEED)*(SIGMA) 

To avoid the label problem, we had originally thought of attaching the LABEL to the first line of the 
code generated from the MACRO but then the problem with the DO loop raises it's head - now the label must 
be the last operation of the loop - statements generated after the labelled statement are not included in the 
loop. Even if we differentiate between the DO-loop labels, the language allows a loop with direct GO TO's 
to the terminating statement label: 

DO LABEL I = 1, 20 

IF (condition) GO TO LABEL 

LABEL . . X = X + GAUSS(MEAN, SIGMA) 

To formulate rules to translate this sequence appears to be impossible. If the operation is programmed with 
labelled CONTINUE statements, two labels will be necessary and the translation is straightforward, i.e. 

DO LABEL1 I = 1, 20 

IF (condition) GO TO LABEL2 

LABEL2 . . CONTINUE 

X = X + GAUSS(MEAN, SIGMA) 
LABEL 1 . . CONTINUE 

2.4 EXPRESSIONS 

An expression is a combination of operators and operands which, when evaluated, produces a SINGLE 
numerical value. 

The arithmetic operators are 

+ addition * multiplication 

- subtraction / division 

** exponentiation 
The relational operators are 

.EQ. equal to .NE. not equal to 

.GT. greater .GE. greater than or equal to 

.LT. less than .LE. less than or equal to 

(The results of a relational expression can only be .TRUE, or .FALSE.) 
The logical operators are 



To use this form, you must be familiar with the implementation of each of the operators defined in the 
language - i.e. whether MACRO or function subroutine. It only works for single line MACROS if at the 
end of a DO-loop. 
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.NOT. reverses truth of logical expression that follows it 

.AND. combines two logical expressions to give value .TRUE, when BOTH are .TRUE, otherwise 
.FALSE. 

.OR. combines two logical expessions to give value .TRUE, when EITHER is .TRUE, otherwise 
.FALSE. 

The operands may be either constants, variables (simple or subscripted) or functions. Examples of arithmetic 
expressions: 

A 5.76 

3 + 16.5 B + A(5)/2.75 

-(C + DEL*AERO) (B-SQRT(A**2 + X**2))/2.0 

Two arithmetic operators may not appear next to each other in an arithmetic expression. If minus is to be 
used to indicate a negative operand, the sign and the element must be enclosed in parentheses is preceded by 
an operator - 

i.e., 

B*A/(-C) not B*A/-C 

A*(-C) 
but, 

-A*B-C 

Parentheses may be used to indicate groupings as in ordinary mathematical notation but they may not be used 
to indicate multiplication. 

Relational expressions are a combination of two arithmetic expressions with a relational operator. The 
relational expression will have the value .TRUE, or .FALSE, depending on whether the stated relation is valid 
or not. The general form of the relational expression is: 

ai op a 2 

where the a's are arithmetic expressions and op is a relational operator. 

NOTE: A relational operator must have two operands combined with one operator. Thus the 
form a 2 op a 2 op a 3 (A. EQ. B. EQ. C) is INVALID. 

Examples are: 

A. EQ. B A + D .LT. 5.3 

A57. GT. 0.0 (5.0*B - 3.0).LE.(4.0 - C) 

Logical expressions are combinations of logical operands and/or logical operators which, when evaluated, will 
have a value of .TRUE, or .FALSE. 

Xj opi 2 opi 3 op j? 4 . . . 

where the £'s are logical operands or relational expressions, i.e., 

LOGICAL AA, CC, LFUNC 

AA. AND. (B. GE. C). OR. CC. AND. LFUNC(X,Y). AND. (X. LE. Y). OR.. NOT. AA 
Note that the symbolic names AA, CC and LFUNC have been declared to be of type logical. LFUNC is a 
function with a .TRUE, or .FALSE, result calculated from the value of the variables X and Y. 

Note that arguments of functions may, in general, be expressions. Since expressions can contain func- 
tions, an arbitrary depth of complexity can be generated. Just using the SIN and COS function as an example, 
a valid expression would be 
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A + SIN(X*COS(5*X + Y) - COS(A + Z/SIN(5.3*C) + C*Y/SIN(SIN(X + Y)*PI))) 
Remember the sole requirement for an expression is that it has ONE value when evaluated numerically. 
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3. EXPLICIT STRUCTURE 

The basic program structure where the model is surrounded by PROGRAM. ..END cards has limitations 
when it comes to calculating initial conditions. They must be real variables, expressions or constants and 
cannot incorporate multiple statement logic. In order to have a more flexible structure, three extra regions 
of the program may be introduced - INITIAL, DYNAMIC and TERMINAL - and the model definition is 
placed in a DERIVATIVE section embedded in the DYNAMIC. Each section must be terminated with an 
END card as shown in Figure 3- 1 . If this method is chosen, any or all of these four explicit blocks may be 
included: Each block must have its own terminating END card and the ordering INITIAL, DYNAMIC, 
embedded DERIVATIVE and TERMINAL must be followed. 



PROGRAM 

INITIAL 

^Statements performed before the run begins. State variables do not contain 
/the initial conditions yet. 

END 

DYNAMIC 

DERIVATIVE 

^Statements needed to calculate derivatives of each INTEG 
/statement. The dynamic model. 

END 

>Statements executed every communications interval. 

END 

TERMINAL 

^Statements executed when the termination condition TERMT becomes 
/true. 

END 

END 



Figure 3-1 . Outline of Explicitly Structured Program 

3.1 PROGRAM FLOW 

The program flow when leaving the executive (due to the START command) is to sequentially proceed 
through the INITIAL section (Figure 3-2 shows a flow diagram). At this point, the initial conditions have 
not been transferred into the state variables (outputs of integrators) so these variables will be undefined if 
any attempt is made to use them. It should be possible to arrange the calculation of any necessary initial 
conditions in terms of any constants or other initial conditions already defined. Another alternative is to use 
the RESET (q.v.) operator that will transfer the available initial conditions to the state names and may 
(RESET('EVAL')) or may not (RESET('NOEVAL')) be accompanied by a call to the derivative evaluation 
routine to calculate all intermediate variables. 

Leaving the INITIAL region, the integration routine is initialized which involves transferring all initial 
conditions into the corresponding states and evaluating the code in the DERIVATIVE section once. This 
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END 



(INITIALIZE \ 
INTEGRATN \ *•> 
ROUTINE / 



STATE HAS INITIAL COND- 
ITIONS TRANSFERRED AND 
DERIVATIVE ROUTINE IS 
USED TO EVALUATE 
DERIVATIVES ONCE READY 
FOR DATA LOGGING 



STOP- 



FALSE 



DYNAMIC 



END 




TRUE 



INTEGRATE 
OVER COM- 
MUNICATION 
INTERVAL 



TERMINAL 



END 




DERIVATIVE 



END 



RETURN 

TO EXECUTIVE 



Figure 3-2. Main Program Loop of ACSL Model 
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action is taken to ensure that all calculated variables are known before the data logging at the time equals 
zero condition. Note that it may appear from the program listing that the DYNAMIC section is executed 
before the DERIVATIVE section; in actual fact, this is not so. You should not rely on calculations in the 
DYNAMIC section to initialize variables for this DERIVATIVE section. On the other hand, all values 
calculated in the DERIVATIVE section are available in the DYNAMIC section. 

Still following the flow chart in Figure 3-2, the STOP flag is reset and the program starts to execute 
the code within the DYNAMIC block. 

There is no restriction on the variables that may be referred to in this DYNAMIC section. All the states 
will have values and intermediate calculations in the DERIVATIVE section will have been executed. 

After this block the STOP flag is tested to see if it is time to transfer to the TERMINAL region. Note, 
the STOP flag is set by the TERMT statement and if any of these statements are included in the DYNAMIC 
block, exit will occur at this check when one of the arguments becomes true. 

If the STOP flag is not set, the program writes out the values of all the variables specified in the 
OUTPUT and PREPAR lists - the former to the output file or printer, the latter to a scratch file for later 
plotting. 

The integration routine is now asked to integrate over a communication interval using the code embedded 
in the DERIVATIVE block to evaluate the state variable derivatives. 

The integration routine returns with the states advanced through the communication interval and again 
the STOP flag is tested. At this point, it may have been set by a TERMT statement placed in the DERIVA- 
TIVE routine. If not set, the program loops and reexecutes the DYNAMIC section. 

Control can be transferred between sections using GO TO's and statement labels, if needed. It is illegal 
to transfer into the DYNAMIC region, since the integration initialization won't be performed correctly. 
Transfer from the dynamic region to either INITIAL or TERMINAL is quite acceptable, so also, is transfer 
between INITIAL and TERMINAL blocks. Note at least one GO TO in the DYNAMIC region or one 
TERMT statement must be included or the program will never stop! 

Control cannot be transferred either into or out of the DERIVATIVE section since this is changed into 
a separate subroutine and as such, is inaccessible to the main program loop. 

When the STOP flag is set true, program control transfers to the TERMINAL section which is executed 
in sequence. On passing out of the section END, control returns to the executive which will read and process 
another control card (run-time command - PLOT, DISPLY, etc.). Note, if a jump (GO TO) is included in 
the TERMINAL section back to the INITIAL, the last output will not be written out, unless the LOG 
operator is used (see Chapter 4). 

3.2 PROGRAM SORTING 

The model definition code that is placed in the DERIVATIVE subroutine is sorted so that outputs are 
calculated before they are used. The sort algorithm is relatively simple and consists of two passes. Pass number 
one examines each statement; output variables are marked as calculated and an input list is established for 
the statement - all the variables on the right of the equals sign. A variable name may appear simultaneously 
on both left and right hand sides of an equal sign (=) in either an assignment statement or PROCEDURAL 
header. In this case sorting takes place only on the left hand or output variable so that the block is positioned 
before any use of the variable. Pass number two takes the list of statements and examines them in turn. If 
none of the variables on the input list have their calculated flags set, the statement is added to the compile 
file and the calculated flag for the output variable (or variables) is turned off. 

If any of the variables on the input list are marked calculated, the statement is saved and the next 
statement examined. If any statement has been added to the compile file, all the saved statements are 
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reexamined to see if they can now be disposed of and their calculated flags reset. This algorithm works because 
any output variables that have already been processed will have their calculated flags reset. Only output 
variables coming up in the statement stream will be flagged and as such can hold up statements that depend 
on these outputs. State variables, of course, are not flagged as calculated - the calculation must be performed 
by the integration routine and all derivative evaluations finally derive from the current value of the state 
variables. Example: 

CONSTANT PI = 3.142, RZ = 1.0 

AREA = PI*R**2 

R = RZ + LR 

LR = INTEG(AREA, 0.0) 

The first statement is translated into the FORTRAN DATA statement and an I/O list established. 
There are no inputs and the variables PI and RZ have their calculated flags set. 

DATA PI/3.142/, RZ/1.0/ 

The second statement has inputs PI and R, and variable AREA has its calculated flag set. Third 
statement has an inputs, RZ and LR; the calculated flag for R is set. The last statement establishes LR as 
a state and AREA as the derivative. The calculated flag for LR is not set - it is assumed known at the start. 

At the end of the first pass the symbol table looks like Table 3-1, and the calculated flags are set as in 
the (a) column. 

TABLE 3-1 . Calculated Flags in Symbol Table During Sort 





(a) Begin 


(b) After 


(c) After 


(d) After 


Symbol 


Pass 2 


Constant 


R = Statement 


AREA = Statement 


AREA 


ON 


ON 


ON 




LR 










PI 


ON 








R 


ON 


ON 






RZ 


ON 









The second pass starts by reading the statements in sequence again, along with the associated I/O lists. 
The first statement has no input list, so it can be output to the compile file directly - in so doing, the calculated 
flags for PI and RZ are reset - Column (b), Table 3-1. 

No other statements are pending so the next statement is read. Inputs are PI and R. R is still flagged 
as calculated so the statement is saved. 

The next statement is read. Inputs are RZ and LR - neither of these are flagged so that statement is 
transferred to the compile file and the output variable flag for R is reset. The saved statement is reexamined 
and now, no input variables are flagged so the statement can be disposed of, erasing the flag on AREA. 

Any well posed problem (without algebraic loops) can be completely disposed of by this method and the 
compile file will have all the statements correctly ordered. 

CONSTANT statements are treated like regular assignment statements as far as sorting so if you place 
all the CONSTANT statements at the end of the program almost all the other statements will have to be saved 
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or held up. It's usually considered good practice to place these at the front of the modules in which they are 
used. 

Algebraic loops are identified inside the ACSL translator by the fact that statements are left over at the 
end of the DERIVATIVE section sort. This is normally considered an error since true algebraic loops should 
be broken with the IMPL statement. In this case the remaining statements are listed by chaining through the 
loop, listing each statement in turn. It is usually easiest to follow the loop backwards from the bottom of the 
list where it will be found that each variable on the left side of an equals (=) sign will appear on the right 
hand side of the statement above it. Procedural blocks make following the path more difficult since the entire 
block is listed and considered as one statement but the position is determined by the variables on the left and 
right hand side of the PROCEDURAL header. When the code is reconstructed, the PROCEDURAL header 
has been lost so the dependencies should be marked in to replace the entire code block. 

Most algebraic loops are programming errors caused by incorrect PROCEDURAL headers or missing 
state equations. For example, the PROCEDURAL block: 

PROCEDURAL (A, B = C, D) 

A = C 

B = D 

END $ 'END OF PROCEDURAL' 

may cause an algebraic loop by implying that A is a function of D and B is a function of C. Use PROCEDUR- 
ALs sparingly and with care. Using many small PROCEDURALs is better than using a few large ones. 

Algebraic loops can be broken by algebra, the IMPL operator or by use of a PROCEDURAL . . . END 
block to hide the actual computational order from the sorter so that the previous value of the implicit variable 
can be used (needs initializing). 
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4. ACSL STATEMENTS 



Included in this section are all the basic statements which can be recognized by the ACSL translator. 
A number of these are the same as equivalent FORTRAN statements with the exception that there is no 
restriction on which card column to start in. 

As a general philosophy, ACSL uses the equals sign in an unfamiliar way. In translating a user's 
program, ACSL needs to know what are the inputs to each statement and what are the outputs in order that 
the statement sequence can be sorted into the correct order. For an assignment statement, all variables to the 
right of the equal sign are input, the variable to the left is given the single numerical value of the right hand 
expression and so is the output. The idea is extended to cases where more than one element is an output so 
that all elements to the left of the equal sign are considered outputs, those to the right are considered input. 

PROCEDURAL (A, B, C = D, E) 

. . . block of statements 

END 

This tells the translator to treat the statements bracketed by the PROCEDURAL . . . END statements as 
a block (i.e., not to rearrange the order) and that it is to consider D and E as inputs; A, B and C as outputs. 
Only variables calculated elsewhere in the same DERIVATIVE block must be listed on the input list. Expert 
users can use judicious manipulation of the input and output lists in order to override the ACSL sort operation, 
if necessary. 

Elements listed in lower case are syntactical elements (i.e., variables) and may be replaced by any 
character string that satisfies the definition. Elements listed in uppercase must have these characters exactly 
as spelled out in the statement. Ambiguities can normally be resolved by assuming that any applicable 
FORTRAN standards hold. 

A number of special functions are described that aid in the definition of simulation models. In general, 
the output of each function is a single number (usually floating point) and the arguments are arithmetic 
expressions which may be of arbitrary complexity; i.e., these may contain functions which contain arguments 
which contain functions to any depth desired. Included in this list for completeness are all the standard 
FORTRAN library functions. In general, logical or relational expressions are used to determine switching 
criteria; for constants, .TRUE, and .FALSE, should be used since the bit pattern of logical variables depends 
on the installation and FORTRAN compiler in use. 

The basic program structure is explained in detail in Section 3, which includes program flow and 
statement sorting. The program is set up to calculate the derivatives of the state variables (outputs and 
integrators) and the statements that perform this operation are bracketed by PROGRAM . . . END cards. 
Each statement will have certain input variables and it will calculate the value of one (usually) or more output 
variables. The program sorting sequence will rearrange the statement sequence if necessary so that values are 
not used before they have had fresh values calculated. Blocks of code that the user requires for a fixed sequence 
may be bracketed by PROCEDURAL . . . END cards which tell the sort routine to treat the included cards 
as a single block. In that case all inputs needed by the block and all values output must be included in the 
argument list of the PROCEDURAL (q.v.) block header. A variable may not be both input and output for 
a single PROCEDURAL BLOCK simulataneously. Variables may be both input and output to a statement 
if they cross a memory or integration operator., i.e. 

X = INTEG(-K*X + F, XIC) 

Z = DELAY(K1*Z + K2*F, . . .) 
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is a normal model description but 

X = Y + 3.0*SIN(X) 

is illegal since the sort cannot be performed. See the IMPL operator. 

More flexibility is obtained by including INITIAL, DYNAMIC and TERMINAL sections to evaluate 
code only at the beginning (INITIAL), at every communication interval (DYNAMIC) or at the end (TER- 
MINAL). Statements included in these sections will not have the order of calculation changed; they will be 
executed directly in the sequence given. 

The use of labels on statements normally implies that the order of the statements is important. ASSIGN, 
GO-TO and IF statements are normally associated with changing the order of program execution. In order 
to avoid the rearrangement that goes on in the DERIVATIVE section of an explicit program or within the 
PROGRAM block of an implicit program they should normally be enclosed in PROCEDURAL . . . END 
brackets so that the group of statements is treated as a whole. It is not necessary to bracket blocks in the 
INITIAL, DYNAMIC or TERMINAL region since these are not sorted into a different order. 

Some of the operators involve state variables and can only be invoked from within a DERIVATIVE 
section. While they can be included in a first level PROCEDURAL block these must always be executed and 
cannot be successfully by-passed by jumping around operator statements. The following is a list of such 
operators: 

CMPXPL DBLINT INTEG LEDLAG 

OU REALPL TRAN 

If an attempt is made to skip around any of these statements, the derivative for the state variable will usually 
be left a non-zero value (constant while the operator is skipped) so that the internal state variable will continue 
to change. The correct method for stopping a state variable changing is to ensure that the derivative goes to 
zero. 

Other operators are defined using a MACRO skeleton in which case two alternative forms of invocation 
are possible when the operator only has one output. As an example consider REALPL, the first order lag. 
A conventional use of this operator is: 

Y = K1*REALPL(T1,X) 

where the state variable (output of the real pole function) is given an assigned dummy name and so not 
considered visible. It is usually advantageous to multiply the input by constants rather than the output - 
synonymous if the operator is linear - as so: 

Y = REALPL(T1,K1*X) 

where the input to the operator is now an expression. If the form of the statement is then a single assignment, 
the stand alone macro invocation can be used as so: 

REALPL(Y = T1,K1*X) 

and in this case (only) the variable Y will be assigned to the state table. This stand alone form is usually 
preferred in order to minimize the number of internally generated variables but numerically all forms are 
equivalent. Operators that can be expressed in stand alone form are so indicated in the following list. 

4.1 ABS 

Absolute value of the argument expression 
y = ABS(x) 
x is a real floating point expression 
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4.2 ACOS 

Arc-cosine is a function 

y = ACOS(x) 

where x is real floating point variable or expression lying between - 1 .0 and + 1 .0. Result is real number in 
radians (zero to -k). 

4.3 AINT 

Integerize by using the functional form 

y = AINT(x) 

where x is a real floating point variable or expression of arbitary complexity. Result - Y sign of X times largest 
integer <lxl and is a real floating point number. 

4.4 ALGORITHM 

The algorithm used by the integration routine may be chosen and/or the system variable name changed. 
The name IALG is the default and may be set numerically at run-time to control the execution algorithm. 
Standard form is 

ALGORITHM name = integer constant 

where "name" will be the new name for the integer defining the run-time algorithm. 

At present there are seven integration algorithms available as listed in Table 4-1. The Adams-Moulton 
(IALG=1) and Gear's Stiff (IALG=2) are both variable step, variable order integration routines that are 
self-initializing. In general they will attempt to keep the per-step error in each state variable below the desired 
value. This desired value is obtained by taking the maximum of the corresponding absolute allowed error 
(XERROR) and the relative allowed error (MERROR) multiplied by the maximum absolute value of the 
state so far 

Ej = max(Xj, Mj lYjImax) 

TABLE 4-1 . Integration Algorithm Numbers 



IALG 


ALGORITHM 



1 

2 
3 
4 
5 
7 


Sample Data Systems 

Adam's Moulton; variable step, variable order 

Gears Stiff; variable step, variable order 

Runge-Kutta first order or Euler 

Runge-Kutta second order 

Runge-Kutta fourth order 

User supplied subroutine (INTEG) 



The order of integration starts at one and then changes dynamically as the program progresses, along with 
the calculation interval as the integration routine attempts to take the largest possible step consistent with 
the allowed error bounds.* 



* For more information see subroutine DIFSUB in "Numerical Initial Value Problems in Ordinary 
Differential Equations" C.W. Gear, Prentice-Hall, N.J. 1971 pp 150 et seq. 
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Gear's Stiff integration method can take calculation steps that are orders of magnitude larger than the 
smallest time constant. There is an overhead involved, however, since a linearized state transition matrix must 
be formed and inverted. Tests have shown that for problems where the range of time constants only differs 
by one or two decades, there is little benefit in using this method - the Adams-Moulton technique is invariably 
faster. If the range of time constants covers more than three or four decades, then this technique should be 
significantly faster than any other. 

A problem was noted in using the Stiff integration algorithm with one of the states only defined when 
positive. This difficulty occurred in integrating for mean square receiver noise in a missile adjoint formulation. 
The simulation model took the square root of this quantity. In starting off the algorithm the linearized state 
derivative matrix - or Jacobian - is evaluated numerically by perturbing each state first minus, then plus* and 
computing the approximate slope from the change in the derivative value. The perturbation magnitude used 
to compute this slope is the current allowable error obtained from MERROR and XERROR. If the positive 
state starts with an initial condition of zero, then the first perturbation will make it negative - an unacceptable 
situation for the derivative evaluation. The way round this problem is to start the integrator off with enough 
bias in the initial condition so that the calculation of the Jacobian doesn't violate any constraints. Since the 
number used for the perturbation is the allowable per-step error, then a bias of this amount should not affect 
overall model validity. 

At the end of a simulation run that uses a variable step-size algorithm, statistics are written out giving 
the weight each state had in controlling step size. You can adjust the error criterion using this information. 
A separate listing indicates the number of times the predictor-corrector algorithm failed to converge and cause 
a general step size reduction - usually considered a more serious failure than bumping into the allowable error 
tolerance. This error summary may be suppressed by setting (SET) the system variable WESITG (write error 
summmary, integration control) to .FALSE. - useful when running from a terminal. 

Current step size (CSSITG) and current integration order (CIOITG) are available as system variables 
which may be OUTPUT or PREPARed. CIOITG is an integer and cannot be plotted. 

The Runge-Kutta routines (IALG = 3, 4 and 5) work by evaluating the derivatives at various points 
across a calculation interval. A weighted combination of these derivatives is then used to step across the 
interval. Runge-Kutta second order (IALG = 4) advances the state with two derivative evaluations per step. 
This usually needs a smaller step than Runge-Kutta fourth order (IALG = 5), four derivative evaluations 
per step): However, for the same step size, it should run about twice as fast: Experiment is worthwhile for 
production jobs. 

Integration algorithm zero is treated as a special case and is included to model discrete controllers with 
samplers controlling transfers to and from the continuous world - modelled by another DERIVATIVE block 
with a smaller effective step size. DERIVATIVE blocks with an integration algorithm of zero are called 
DISCRETE blocks and are further described under that heading. 

4.5 ALOG 

Natural logarithm of real argument x by 
y = ALOG(x) 
x should be > 0.0. 

NOTE: This function is NOT the antilogarithm. 



* Normally if the system variable TSMITG (two sided matrix evaluation, integration control) has its default 
value .FALSE., the states are only perturbed in the negative direction. 
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4.6 ALOG10 

Logarithm to base ten of real argument x is given by the function 
y = ALOGlO(x) 
x should be > 0.0. 

4.7 AMAXO 

Determine maximum argument; standard functional form 
y = AMAXOGi, j 2 , • • • ,j„) 

where the jj are integer variables or expressions. Y will be the real floating point value of the maximum 
argument. 

4.8 AMAX1 

Determine maximum argument; standard functional form 

y = AMAXl(xj, x 2 , . . . , x n ) 

where the x, are real, floating point variables or expressions of arbitrary complexity. Y will be given the value 
of the maximum Xj. Negative values are considered less than positive values. 

4.9 AMINO 

Determine minimum integer argument and convert to floating point; standard form 
y = AIMINOGi, j 2 , . • • , j n ) 
Similar to AMAXO except returns the value of the minimum argument. 

4.10 AMIN1 

Determine minimum real argument; standard functional form 
y = AMINl(x l5 x 2 , . . . , x n ) 
Similar to AMAX1 except returns the value of the minimum argument. 

4.11 AMOD 

Remainder of modulus can be obtained by 

y = AMOD(x b x 2 ) 

which returns the floating point remainder when dividing x x by x 2 . The definition is a bit loose if x 2 is negative 
so it is actually defined as xi - [xi/x 2 ] x 2 where [ ] determines the integer with magnitude not greater than 
the argument and with the same sign. x 2 and x 2 may be real floating point variables or expressions of arbitrary 
complexity. 

4.12 ARRAY 

Equivalent to the FORTRAN DIMENSION statement, this operator allocates space for up to three 
dimensions to be associated with a variable name. Standard form of the ARRAY statement is 

ARRAY v 1? v 2 , v 3 , v 4 , . . . v n 

The variable names Vj may have 1, 2 or 3 integer CONSTANT subscripts separated by commas; i.e., 
SPACE(5,5,5). (Note the subscripts must not be symbolic). While this statement can, in general, appear 
anywhere in the program, it is recommended that it be placed in the beginning of each module. It must appear 
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before any invocation of a MACRO that uses dimension information. Section 10 of Appendix A gives an 
example of the use of this statement. 

4.13 ASIN 

Arc-sine of the real argument x is 
y = ASIN(x) 
x should be between - 1.0 and + 1.0 and the result will be in radians (-x/2 < Y < + ic/2) 

4.14 ASSIGN 

A label can be assigned to a simple integer variable for use later in an assigned go to. Standard form 
of the statement is 

ASSIGN k TO m 

where k is a statement label and m is a simple integer variable. It is important for the ACSL translator to 
find a space between the label k and the following TO. Subsequent evaluation of 

GOTOm 
will transfer control to the statement labelled, k. Example: 

ASSIGN RTURN2 TO M 
The variable M should be explicitly typed INTEGER. 

4.15 ASSIGNMENT STATEMENT 

variable = expression 

'variable' may be simple or subscripted. If subscripted in a sort section it must be enclosed in a PROCEDUR- 
AL block. On execution, the single value of the expression is stored into the location defined by Variable'. 
A special form is the integration statement 

A = INTEG (expression, AIC) 

which marks A as a state variable. It actually stores a value (of expression) in the derivative of A. 

The integration statement can be embedded at any depth in an expression since it only has one value, 
so the following is valid. 

X = A*INTEG(DERIV, IC) + 3.0*C 

In this case a made-up variable is assigned to be a state and the value of this used in the expression. This form 
is not recommended since states should be well defined and accessible to the user. Define your own intermedi- 
ate variable, i.e., 

ST = INTEG(DERIV, IC) . 

X = A*ST + 3.0*C 

4.16 ATAN 

Arc-tangent of real argument x is 
y = ATAN(x) 
x is unlimited - except infinite - and result Y will be in radians such that (-tt/2 < Y < + tt/2). 
NOTE: For full coverage of the circle it is better to use ATAN2 (q.v.). 
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4.17 ATAIM2 

Arc-tangent of angle formed by the point with real coordinates x, y and the positive X axis. Function 

is 

z = ATAN2(y, x) 
x and y can be both positive and negative, defining the full circle of revolution. Result will be in radians such 

that -7T < Z < + 7T. 

4.18 BCKLSH 

Backlash may be modelled using the following standard forms: 
y = BCKLSH(ic, dl, x) 
BCKLSH(y = ic, dl, x) 
where 

ic = initial conditions on y. Output will always lie between the limits x - dl and x + dl 
dl = half width of backlash - see Figure 4-1 
x = input, a real variable or expression 
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Figure 4-1 . Mechanism Illustrating BCKLSH Operator 

For unsymmetric applications change the expression for the input x, i.e. If Y is to move when x is greater than 
UL or less than LL then the invocation would be 

Y = BCKLSH(YIC, 0.5*(UL - LL), X - 0.5*(UL - LL)) 
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4.19 BOUND 

Variables may be bounded or limited with this function. It should not be used to limit the output of an 
integrator since the integrator itself will continue to wind up and must actually integrate out of the limit. The 
function LIMINT should be used in this case, which sets the derivative to zero if it is still driving into the 
limit. On sign reversal the integrator will immediately come out of the limit. Standard form of the BOUND 
function is 

y = BOUNDS, ui, x) 

Result 

y=ii, x<M 

y = x, 11 < x < ui 

y = ui, x > ui 

4.20 CALL 

Subroutines may be invoked by an explicit call which has the standard forms 

CALL name 

CALL name (p b p 2 , . . . , p n ) 

name is the name of the subroutine being called and pj are actual arguments which may be expressions of 
arbitrary complexity for input values. Variables, arrays and subscripted variables may be used for arguments 
that have values stored into them. Note that in this form the translator cannot tell which arguments are inputs 
and which are outputs so the call must be embedded in a PROCEDURAL block if it is in the sortable section 
of the program (DERIVATIVE), i.e., if Oj are output variables and Pj are input variables or expressions, then 
the following cards could be used 

PROCEDURAL (0 lf 2 , 3 = P b P 2 , P 3 , P 4 ) 

CALL SUBR(Oi, P b P 2 , P 3 , P 4 , 3 , 2 ) 

END 

Now the translator will handle this section as a block and it will have been told which variables are inputs 
and which are outputs. 

A third form of the call is provided just in case the subroutine happens to be written with the input 
expressions on the left and the output variables on the right. In this case use 

CALL SUBR(O l5 2 , . . . , O m = P lf P 2 , . . . , P n ) 

where the O x are output variables - names or arrays that have their values calculated by the subroutine and 
the Pj are input expressions. 

The translator will rearrange the order and change the equal sign (=) to a comma so that the resulting 
call will be 

CALL SUBR(Pi, P 2 , . . . , P n = O b 2 , . . . , OJ 

4.21 CINTERVAL 

The communication interval is the interval where control returns to the dynamic section and output 
variables have their values recorded. In general, no finer grain detail can be seen, so it is extremely important 
that the user choose this communciation interval with care. The standard form of the statement is 

CINTERVAL name = real constant 
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where name is a simple, unsubscripted variable. 

The system default name is CINT and the default value is 0.1. The value of the name defined in the 
CINTERVAL statement may be changed by the program so that different phases can be viewed at different 
data rates. 

Assume we have a missile simulator that has four phases of flight: 

1) Initial turn 

2) Midcourse 

3) Acquisition 

4) Terminal 

Now we would like to measure these phases at different rates - initial turn at a fairly fine level of a tenth of 
a second; the long midcourse only every second and acquisition and terminal at the fine rate of every 50 msec. 
In the initial section (Figure 4-2) PHASE is declared to be an integer and initialized to one. An array STEP 
is defined and filled with the desired communication intervals to match each phase of flight; PHASE is one 
for initial turn, two for midcourse, three for acquisition and four for terminal. In the DYNAMIC section the 
communication interval (using default name CINT) is set using the current value of the flight PHASE (will 
range from one to four). In the derivative section the value of PHASE is computed from the logic used to 
establish the different flight regions. This is shown as a block since the algorithm will depend on the 
implementation of the model. However, when it is implemented, the value of PHASE should be maintained 
in the range one to four. 



INITIAL 
SECTION 



DYNAMIC 
SECTION 



DERIVATIVE 
SECTION 



INTEGER PHASE 

ARRAY STEP (4) 

CONSTANT STEP = 0.1, 1.0, 0.05, 0.05 

PHASE = 1 $ 'INITIALIZE PHASE TO START' 



CINT = 



STEP (PHASE) 



'COMPUTE PHASE OF FLIGHT' 
lPROCEDURAL(PHASE = , , , ) 

END 



END 



Figure 4-2. Example of Program to Vary Communication Interval 
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The following example changes the name of the variable defining the communication interval (from the 
default CINT) 

CINTERVAL CI = 0.01 

Now all references should be made to the symbol CI when the value is to be recorded or changed. 

CINT acts as an upper bound on the integration step size, except for integration algorithm zero, and 
also for the last step of a communication interval since the model will be advanced to the data recording time. 
This question is discussed in more depth under DYNAMIC (qv). The actual integration step is obtained from 
the following statements. 

H = MAX(MINT, MIN(MAXT, CINT/NSTP)) 

H = MIN(H, time left to next event) 

which applies bounds of MAXT and MINT to first guess of CINT/NSTP and then limits this to be no more 
than the time left in the current communciation interval or to the next event (DISCRETE section) 

4.22 CMPXPL 

A second order transfer function may be conveniently implemented by using the standard forms: 
y = CMPXPL(p, q, x, icl, ic2) 
CMPXPL (y = p, q, x, icl, ic2) 
Results: y will be related to input x through the transfer function 
1 



y_ = 

x ps 2 + qs + 1 



y(0) = icl 

y(0) = ic2 

The same restriction on IC's are present as for the INTEG operator; both may be omitted if zero, p and q 
may be expressions of arbitrary complexity (Figure 4-3). 



MACRO CMPXPL ( Y, P, Q, X, IC1 , IC2 ) 

MACRO 3TANDVAL ICi=0. 0, IC2«0. 

MACRO REDEFINE YDOT 

YDOT*INTEG< < <X>~< Y)~~<0)*YD0T)/<P> , IC1) 

Y=INTEG<YDQT, IC2) 

MACRO END 



Figure 4-3. Listing of CMPXPL Operator Macro 

4.23 COMMENT 

Any complete statement may be inclosed in quotation marks and it will then be ignored by the translator. 
It is illegal to ADD the quoted string to another statement, i.e., 

A = B + C 'THIS IS AN ASSIGNMENT' 

is all one statement and hence illegal. The card can be broken up into two statements by 
A = B + C $ 'THIS IS AN ASSIGNMENT 
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The normal rule regarding continuations using the trailing ellipsis applies, i.e., 

A = B + C $ THIS IS A LONGER COMMENT . . . 

REGARDING THE ASSIGNMENT OF A VALUE TO A' 

Since the quotes must be balanced and the statement separator ($) overrides all other operators, 
comments cannot contain quotation marks or dollar signs. 

4.24 CONSTANT 

Similar to a FORTRAN DATA statement, this operator is used to preset symbolic locations with 
numeric data. Standard form of the CONSTANT statement is 



CONSTANT d x = a ls d 2 = k*a 2 , d 3 = a 31 , a 32 , k*a 33 



where 



dj = Identifiers representing simple variables or array names. Implied do-loop notation may not 
be used. If d, is an array name, integer subscripts may be used to fill individual elements 
within the array, else the entire array must be filled. 

aj = Literals and signed or unsigned constants. 

k = Integer constant repetition factors that cause the literal following the asterisk to be 
repeated k times. 

No check is made that reals are stored into reals, integers into integers and logicals into logicals. A common 
error is to omit the decimal point from a number which will then be stored as an integer. When the symbolic 
name is used as a real number, the integer stored there may be considered zero. An example of the correct 
use of the CONSTANT statement is: 

LOGICAL LI 

INTEGER II 

ARRAY A(2) 

CONSTANT LI = .TRUE., 11=2, A=2*1.0, B = 5.76 

4.25 CONTINUE 

Is a do-nothing statement which is normally used for a label to transfer control to or terminate a DO-loop. 
For preference, this statement should be used for all labels due to problems with MACRO expansions - see 
sub-section 2.3. 

4.26 COS 

Takes the cosine of a real argument x which must be in radians 
y = COS(x) 
result will be -1.0 < Y < + 1.0 

4.27 DBG 

Debug features are built into the translator and varying sections of the translator process can be printed 
on command via this statement. It should normally only be used under instruction of someone familiar with 
the programming of the translator. 
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4.28 DBLINT 

A special operator is provided for integrator limiting when the limited output is the second integral of 
an acceleration. This type of limiting can best be described in terms of the mass spring-damper system 
described by 

mx +bx +cx = f(t); x(0) = XDZ, x(0) = XZ 

where physical stops constrain the mass to move only between Xnn (lower limit) and x u ^ (upper limit) i.e., 

X £i- X -M 

When the displacement (x) of the mass reaches its limit, the mass must stop, implying that the velocity (x) 
is zero. The mass must remain stopped until the force acting on it (f(t) - ex) changes sign. The DBLINT 
operator (double limited integration) can be used to represent this type of limiting. The standard form of the 
invocation is 

DBLINT(x, xd = xic, xdd, xdic, M, ui) 

where 

x = a displacement 

xd = a velocity (x) 

xic = x(0) 

xdd = the input, an acceleration (x) 

xdic = x(0) 

11 = the lower limit 

ui = the upper limit 

Figure 4-4 gives a listing of the macro operator. 



MACRO DBLINT <X, V, XIC, A, VIC, LBX, UBX) 
MACRO REDEFINE ML, IC 
CONSTANT .TOO. 

S^LS?!™ 1 ^' VL = IC, X, INTEG<ZZLIMF(X, A, LBX, UBX), MIC), 0. 0, LBX, UBX) 
X"».LNIMC(M, XIC) 

MACRO END 



Figure 4-4. Listing of DBLINT Operator Macro 

An alternate way of performing this operation is to wrap a stiff spring around the loop when the wall 
is approached - this corresponds to what happens physically since the wall will always have a finite spring 
constant (Figure 4-5). The problem with this representation is in the behavior of the digital integration routine 
in the vicinity of the wall when the wall stiffness is made extremely high. 

4.29 DEAD 

Dead space has standard form 
y = DEAD(jM, ul, x) 
Result is: 
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Figure 4-5. Limited Displacement - Spring Stiffness, K s , Wall Stiffness K w , 

Damping Constant K d 



y = x -H, 
y = o.o, 

y = x - ufi, 



x < 11 

U < x < u£ 
x > ujf 



4.30 DELAY 



A variable must be delayed in time to model passage through a pipe or other transport effects. This 
operator should not be used lightly since it tends to use a lot of storage and the extra calculation time can 
be significant. 

The operator is invoked by the standard function forms 

y = DELAY(x, ic, tdl, nmx) 



or 



where 



DELAY (y = x, ic, tdl, nmx) 



x = the input - an arithmetic expression of arbitrary complexity 

ic = the initial value of the output until the independent variable has advanced by the delay, 
tdl 

tdl = the delay between input and output 

mmx = an integer CONSTANT (i.e 10) giving the maximum number of calculation intervals in 
the delay. The calculation interval may vary but the sum of nmx calculation intervals must 
always be greater than the current time delay. 
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This operator is implemented by allocating a dummy array, 2*nmx words long, and prefilling with the 
value of ic, extending over all past history. Each entry in the table is associated with a time and at each new 
calculation interval a new value is inserted into the array - treating it as a circular list. To compute the output 
value, tdl, the current time delay is subtracted from the independent variable value and the table is searched 
for time values that bracket this required previous time. A linear interpolation is performed between the 
corresponding input values. If not enough data points are present, an error is reported. This operator approxi- 
mates the pipeline with a varying velocity. For best results the time delay should vary slowly. 

NOTE: This operator requires the sort algorithm to separate sections of code and so should 
not be included in a PROCEDURAL block. 

4.31 DERIVATIVE 

Identifies the blocks of code performed at the request of the integration routine to evaluate the state 
variable derivatives. The integration routine is called from the dynamic section (Subsection 3.1) and asked 
to advance the state over the next communication interval using the code embedded in the DERIVATIVE 
blocks to evaluate the state variable derivates. The actual number of evaluations depends on the integration 
algorithm employed. All the statements in the DERIVATIVE blocks are translated into a separate subroutine 
so it is illegal to transfer control by GO TO's from these blocks to other sections (INITIAL, DYNAMIC, 
or TERMINAL) or vice versa. 

More than one DERIVATIVE section may be used, each with its own independent integration algorithm 
and integration step size. Although this technique can save execution time when correctly used, any implemen- 
tation must be approached with caution since, in general, incorrect answers will be obtained unless the model 
is split with a full understanding of the effects of computation delays for variables that cross block boundaries. 
This tool has been provided for research into problem split rules and should be regarded more as a state-of-the- 
art technique rather than for every day practical implementation. For anyone who considers himself a novice, 
no more than one DERIVATIVE section should ever be used, unless it is to model a discrete controller where 
natural delays occur. 

The basic structure is to include more than one derivative block - delimited by DERIVATIVE.. .END 
statements within the DYNAMIC block, i.e. 

DYNAMIC 

DERIVATIVE SECTION 1 



END $' OF SECTION 1 ' 
DERIVATIVE SECTION 2 

END $' OF SECTION 2 ' 

etc 

END $' OF DYNAMIC ' 

Each derivative section can have its own integration algorithm, maximum step size, minimum step size and 
NSTEPS value. Default values for these quantities are established in normal fashion. If a value is specified 
outside a DERIVATIVE section, this becomes the default for all DERIVATIVE sections. Values relating 
to a particular DERIVATIVE section are defined by including the appropriate statement between the 
DERIVATIVE . . . END delimiters, i.e. 

ALGORITHM IALG = 4 
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NSTEPS NSTP = 1 
DERIVATIVE SEC1 

ALGORITHM ALG1 = 3 
MAXTERVAL MAX1 = 0.001 

END S'OFSECl ' 
DERIVATIVE SEC2 

MAXTERVAL MAX2 = 0.010 

END $' OF SEC2 ' 

The first two statements establish algorithm number four (4) to be the default algorithm and each section 
will have a NSTP of 1. Within derivative section one, the algorithm is specified to be three (3) with a 
maximum step size of 1 msec (0.001). Within derivative section two, the default algorithm is taken and the 
maximum step size set to 10 msec (0.010). Since NSTP is one, these will be the actual step sizes. 

Implementation for these block descriptor names is by forming an array of length the number of 
derivative sections for each one of the describing quantities. The names used are the default or those specified 
outside the DERIVATIVE sections. In the preceding example, this would be IALG(2), NSTP(2), MAXT(2) 
and MINT(2). Names specified within the derivative sections are equivalenced into appropriate slot of the 
main array, i.e. 

IALG(l) = ALG1 

MAXT(l) = MAX1 

MAXT(2) = MAX2 

and preset to the value indicated. These values can be changed by SET commands at run-time. To change 
the integration algorithm for section two, it must be referred to as IALG(2) since a name was not explicitly 
given, i.e. 

SET ALG1 = 5, IALG(2) = 5 

Because of the equivalencing convention, it is important that unique names be used for descriptors 
defined within DERIVATIVE blocks. 

At the start of the simulation run, the DERIVATIVE blocks are placed on an event list and executed 
in the order in which they are specified in the model definition section. Note that the sort algorithm cannot 
rearrange statements over a block boundary, so that if a value calculated in the second block is used in the 
first block, the first time it will be undefined. Such quantities should be initialized in the INITIAL section. 

Each block is placed back on the event list assigned with the time to which that block has advanced. In 
the case given of a 1 msec step associated with Section 1 and a 10 msec step associated with Section 2, the 
event list will look like: 
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After Section 1 has been advanced one step to 1 msec, the event list has Section 2 at the top (B) with a time 
of 0.0. Advancing this section one step leaves it at 10 msec and now Section 1 is back at the head of the list 
again (C). Section 1 keeps on being advanced until they are both at 10 msec (E). Now we assume that 1 is 
a little ahead of 2, and goes to 1 1 msec (F). Next step advanced 2 by 10 msec and the event list picture changes 
to (G). This cycle then repeats. 

The only break in the regular progression is at a communication interval or at an equivalent barrier 
represented by a DISCRETE block or a block with an integration algorithm of zero. The times for all 
DISCRETE blocks and also the communication action are entered onto a separate event list where all actions 
are ordered in time; the next time on the event list is called the barrier time. 

For all other DERIVATIVE blocks, the current step size is checked against the current time (T) and 
the barrier time from the next event list. If the integration with the current step size will exceed the barrier 
time, the actual step is reduced so that the last step is made exactly up to the event. All states will then line 
up in time for the event to take place. If the event is a communication interval data recording, the derivatives 
are evaluated once more so that all algebraic variables depending on the states will be consistent. This action 
is not taken for barriers established by DISCRETE blocks since differences are likely to be small and the 
overhead of an extra forced derivative evaluation comparatively high. If. any problems are encountered 
remember that the state variables will be at the correct time and any algebraic variables can be rederived in 
the sampling code if necessary. 

It seems most people choose step sizes and communication intervals that are integer multiples of each 
other. The ACSL system does not require this however, and it is acceptable to choose a fixed step length for 
the continuous section of 4 msec, a sampling INTERVAL (qv) in the DISCRETE block of 1 1 msec and a 
communication interval of 20 msec. The first few calculation intervals would then be 

4, 4, 3, 4, 4, 1, 2, 4, 4, 3, 4, 3, 4, . . . 

The first short step of 3 msec brings time up to 11 msec the first barrier time. Then two more normal steps 
are followed by a short step of 1 msec to bring time up to the communication time of 20 msec. The next barrier 
is the DISCRETE block at 22 msec causing a step size of 2 msec and so on. The variable step algorithms are 
similar in that the step length will vary but the last step will always be reduced to move the block exactly up 
to the barrier time. Note however for monitoring purposes, the variable CSSITG or current step size will 
contain the step length the integration algorithm would like to take, not the shorter one actually taken up to 
the communication interval time. 

4.32 DERIVT 

The derivative function can be implemented if ABSOLUTELY necessary. Note that it is never necessary 
to invoke a derivative - it can be expressed instead in terms of all the other states in the system. Since the 
derivative operator is a first order approximation, it can lead to instability if it is used to represent any major 
loop. The only time this may be justified is for a minor term where a large amount of extra calculation may 
be needed to reform the problem in terms of the states. Standard form is 
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y = DERIVT(ic, x) 
DERIVT(y = ic, x) 
where: 

ic = Y(0) 

x = the input, an arithmetic expression 
NOTE: This operator should not be included in a PROCEDURAL block. 

4.33 DIM 

Positive difference is obtained by the function 
y = DIM(x b x 2 ) 
where Xj and x 2 are real floating point variables or expressions. Result is 
y = Xi - x 2 if x r > x 2 
y = O.G otherwise 

4.34 DISCRETE 

An equivalent to the DERIVATIVE block is introduced by the keyword DISCRETE. The intent is to 
make it easy to model digital sampled data controllers where the communication to and from the continuous 
world occurs at fixed, known in advance, times. The format of the statement is 

DISCRETE name 

END 

inserted within the DYNAMIC code block, if any, at the same level as any DERIVATIVE blocks. The action 
of the statement is to demarcate a code sequence that is executed at a discrete event or time point with the 
execution being controlled by the keyword INTERVAL. Like the DERIVATIVE blocks, each DISCRETE 
block has a time associated with it which is entered into an event list, which time will become a barrier for 
all the other DERIVATIVE blocks ensuring that they all take a final step (may be short) up to the barrier 
time before the code in the DISCRETE section is executed. If the INTERVAL statement is included, the 
DISCRETE block is re-entered on the event list with a time equal to the current time plus the current contents 
of the INTERVAL variable. 

An example using a DISCRETE block to model a control computer is given in Section 1 1 of Appendix 
A and is shown in outline here by the following structure 

PROGRAM discrete controller 

DERIVATIVE CONTIN 

(X DEPENDS ON U) 

END $' OF CONTINUOUS SECTION' 
DISCRETE SAMPLE 
INTERVAL DTSAMP = 0.100 
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(U DEPENDS ON X) 

END $' OF DISCRETE' 

END $' OF PROGRAM' 

In the continuous section we define a plant that can be as complex as necessary but structurally has an output 
X that depends on a control U. The control U should be visualized as being generated via a digital to analog 
converter so that the value of the control remains constant between output intervals. The next section is a 
DISCRETE block that is executed every DTSAMP seconds, defined by the INTERVAL statement to be 0.1 
seconds. This block uses the output value of the plant X, which will be at the sample time, to compute a control 
U which will be used over the next sample interval. The successful operation of this simulation requires the 
continuous section to be exactly at the sample time when the plant value X is used to determine the next control 
U. 

Jumps in the control U will modify all the high order derivatives estimated for the continuous plant so 
variable step algorithms will usually have to reduce the step size or even restart, since the fixed step size 
algorithms retain no memory of previous history, the new step will start out with a new evaluation of the 
discontinuous derivatives. The key to the action is the fact that the effective time of the continuous section 
is exactly at the sample time when the DISCRETE section code is executed. 

The order of execution of the blocks is as given in the model definition code at time equals zero and both 
DERIVATIVE and DISCRETE blocks can be mixed. In general, in a closed loop situation, some variables 
will have to be initialized in the INITIAL section since they are used before being calculated in a later block. 
Reference as an example the control variable U in the preceding code sequence which is used in the continuous 
section before it is calculated in the DISCRETE block. If used like this without initialization, the first value 
of U used in the continuous section will be the last value left behind by the previous run! A test of the presence 
of these initialization problems is to make two identical runs i.e. START $ START. If any answers are 
different it usually indicates an error. 

The sequence of events at the time-equals-zero condition differs somewhat from the corresponding 
DERIVATIVE blocks. For conventional DERIVATIVE blocks, the initial conditions are moved to the state 
variable array and the derivative code executed once. Then the integration algorithm takes over and in 
integrating over the first step re-evaluates the derivatives again (the variable step algorithm IALG = 1 or 
2 will predict the state variables first before the correct iteration) so it appears that two derivative evaluations 
are used at time-equal-zero. With the DISCRETE block, the first evaluation takes place and then the block 
is placed back on the event list at some time in the future (depends on the INTERVAL statement) with any 
state variables still with their initial condition values. Now time will advance for other sections until the 
DISCRETE section barrier time is reached when the integration algorithm first advances the state variables, 
if any, to the current time by euler integration and then re-evaluates the DISCRETE section code. In general 
integration statements (INTEG or INTVC) are not used inside DISCRETE blocks since the facility is 
designed to represent sampling actions independent from the continuous physical world where the true 
integrations take place. There is sometimes a need for a simplified integration algorithm with a fixed step size 
and a single derivative evaluation per step. This has arisen in the past in translating DYNAMO models to 
run under ACSL. In this case the entire model can be placed in a DISCRETE block and no extra derivative 
evaluations will be inserted at the communication interval times. Since the states are always advanced just 
before a re-evaluation of the derivative code, algebraic variables are always synchronized to the state variables 
for data recording. 

The mechanism for implementation of a DISCRETE section is to set an effective algorithm of zero in 
the corresponding IALG slot which can be seen from the debug output. The INTERVAL variable is equiva- 
lenced into the MINT (MINTERVAL) array and preset to the appropriate numeric value. Slots in the 
corresponding MAXT (MAXTERVAL) and NSTP (NSTEPS) arrays are ignored. 
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4.35 DO STATEMENT 

The standard FORTRAN DO statement may be included. Note that the loop should normally be 
embedded in a PROCEDURAL block so that the sort routine will not rearrange the order of execution. This 
is not necessary within the INITIAL, DYNAMIC or TERMINAL regions of an explicit program since these 
are not sorted - each statement being executed in sequence. The loop cannot extend from INITIAL to 
TERMINAL to execute a sequence of runs. Each loop must be closed within its own block. The reason is the 
CONTIN statement that branches directly into the DYNAMIC loop. Most FORTRAN compilers will reject 
a branch into a loop. If a loop is established to make successive runs, then CONTIN cannot have any meaning 
since the initialization won't be performed properly. 

A DO statement makes it possible to repeat a group of statements a designated number of times using 
an integer variable whose value is progressively altered with each repetition. The initial value, final value and 
rate of increase of this integer variable is defined by the set of indexing parameters included in the DO 
statement. The range of the repetition extends from the DO statement to the terminal statement, which must 
follow the DO statement, and is called the DO loop. The standard form of the DO statement is 

DO n i = nij, m 2 

DO n i = mi, m 2 , m 3 

where 

n = a label of the terminal statement of the loop, may be a symbol or numeric. 

i = a simple integer variable called the index variable. With each repetition its value is altered 
by the increment parameter, m 3 . This varible may not be changed within the loop. 

ni! = initial parameter, the value of i during the first loop. 

m 2 = terminal parameter, when the value of i surpasses the value of m 2 , DO execution is 
terminated and control goes to the statement immediately following the terminal state- 
ment. 

m 3 = increment parameter, the amount i is increased with each repetition. If omitted - first form 
above - the value 1 is assumed. 

The irij, m 2 , and m 3 must be simple integer variables or unsigned integer constants. 

In general, the use of DO statements should be minimized. More flexibility is usually obtained by 
programming each loop explicitly, i.e., 

I = mj 

LI . . IF(I.GE.m 2 ) GO TO L 2 

... loop 
I = I + m 3 
GO TO LI 
L2 . . CONTINUE 

Now general expressions, arrays and real variables can be used for the indexing parameters. 

For more information on the structure of the DO statement see the local FORTRAN reference manual. 
The ACSL translator checks the syntax of the DO statement but does not validate the correct nesting of loops 
or terminal statements. Errors of structure will be indicated by the FORTRAN compiler. 
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4.35 DYNAMIC 

Identifies the block of code that is performed every communication interval throughout the run. It must 
be accompanied by its matching END card. Code executed in the DYNAMIC block can leave variable values 
around for use by the DERIVATIVE and DISCRETE blocks over the next communication interval and in 
that sense it can act as a sampler or D/A converter. It is preferable to include code calculations in a separate 
DISCRETE block and so make model behavior independent of the data recording action. The intent within 
the DYNAMIC block is to provide a place to put output related calculations so that they can be performed 
at the usually slower data recording rate rather than at each derivative evaluation. Examples are unit 
conversions such as radians to degrees or meters/seconds squared to gees. The time interval for the next 
communication interval can be itself changed, based on some simulation phase or configuration so obtaining 
variable data recording rates - see CINTERVAL statement for example. 

No sorting is performed on any of the code within the DYNAMIC block. 

4.36 END 

Denotes the end of a block or section. Subsection 3.1 shows the use of END's in structuring an explicit 
program. One of the most common errors is not getting the right number of END's to balance off the program 
blocks. Error messages 'NOT ENOUGH ENDS' and TOO MANY ENDS' are issued when the count is 
incorrect. It acts like a right parenthesis in an arithmetic expression, except that it terminates blocks of 
statements. An incorrect count corresponds to unbalanced parentheses. 

4.37 EQUIVALENCE 

This operator is similar to the FORTRAN version in that it allows renaming of areas of storage. Due 
to the nature of storage in ACSL (all variables appear in a single common block) there are specific rules for 
the use of EQUIVALENCE which do not appear in normal FORTRAN usage. The standard form of the 
statement is: 

EQUIVALENCE (Main variable, equivalenced variables(s)) . . . 

,(Main variable, equivalenced variables(s)) . . . 

,(etc.) 

where "main variable" will appear in the users common block, and thereby reserve storage, while the 
equivalenced variables will be assigned storage relative to the main variable, but will not reserve space. All 
variables will appear in the dictionary with their own types and dimensionality. 

Rules which restrict the use of EQUIVALENCE are as follows: 

1) System variables (CINT etc.), States, Derivatives and Initial Conditions may only appear as main 
variables. 

2) A main variable may never appear as an equivalenced variable. 

3) An equivalenced variable must not appear more than once. 

4) Variables may have no subscript or only one when being specified in an EQUIVALENCE statement. 
Multi subscripted arrays must appear using their equivalent single subscript. For example, given 
A(5,5), equivalencing the (3,3) element to SAM would require a reference to A(5*3 + 3) or A(18) 
i.e. 

EQUIVALENCE (A(18), SAM) 

In using equivalenced variables, any reference to an equivalenced variable name is taken to be a reference 
to its associated main variable, even through the equivalenced variable may be only one element of a large 
main variable array. Thus the sorter will produce the error message "multiply defined symbol" if two 
equivalenced variables are assigned values outside a PROCEDURAL block. 
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ARRAY RM(3) 

EQUIVALENCE (RM(1), RM1), (RM(2), RM2), (RM(3), RM3) 

RM1 = 0.0 

RM2 = 10000.0 

***MULTIPLY DEFINED SYMBOL*** 

Generally the main variable is equal to or larger than it's equivalenced variable(s) since the main variable 
reserves storage, i.e., 

ARRAY A(10) 

EQUIVALENCE (A, B) 

Here A is the main variable, B is the equivalenced variable. A reference to B uses the first element of A (= 
A(l)). B(2) is not allowed unless B is a separately defined array. 

ARRAY A(10) 

EQUIVALENCE (B, A) 

Now B is the main variable - which reserves one word of memory - and A is the equivalenced variable. A 
reference to A(2) will access the variable that follows B in the common block, generally not known to the user. 

4.38 ERRTAG 

The name given to the variable that is used to indicate an attempt to reduce the step size below the 
minimum, MINT, can be changed. This name will be set .TRUE, to indicate an error by a variable step size 
integration algorithm which is reducing the step size to control the error bound. Standard form of the 
statement is 

ERRTAG name 

where 'name' is a simple unsubscripted variable. The type of 'name' will be automatically set to LOGICAL 
and it will be preset to .FALSE, to start with. The variable step integration routine will call the derivative 
subroutine once with the name given under ERRTAG set to .TRUE, if it needs to reduce the step size below 
the minimium calculation interval, MINT. If it is still .TRUE, on return, the termination flag for that run 
will be set. Control should then revert to the terminal section, or executive and the next command will be read. 
If provision is made to handle this case and reset the flag, then care must be taken that an endless loop is not 
formed. 

4.39 EXP 

Exponential of real argument x 

y = EXP(x) 

x is limited in size such that the maximum machine word size should not be exceeded by the exponential. 
Result is 



4.40 EXPF 

The exponential function can be switched on or off. The output is a function rising on a time constant 
to 1.0 (ON = .TRUE.) or decaying to zero (ON = .FALSE.). Standard form is 

y = EXPF (ic, ta, on) 
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where: 



EXPF (y = ic, ta, on) 

ic = Y(o) - should be between zero and 1.0 

ta = the time constant (r) 

on = a logical variable or expression, denotes rise or decay 



Results: 



y = 1.0 - EXP(-(T - T )/r); ON = .TRUE. 
y = EXP(-(T - T^/r); ON = .FALSE. 
T and T l are the times at which ON changed .FALSE, to .TRUE, and .TRUE, to .FALSE, respectively. 

4.41 FCNSW 

Function switch operator has standard form 

y = FCNSW(p, xl,x2, x3) 
Results: 

y = xl, p < 0.0 

y = x2, p = 0.0 

y = x3, p > 0.0 

4.42 FORMAT 

The FORTRAN FORMAT statement may be used and must have a label. In an explicit program, the 
FORMAT statement and corresponding I/O statement (READ, WRITE, etc.) must both be in the DERIVA- 
TIVE section or neither. Standard form of the FORMAT statement is 

LI . . FORMAT(character string) 

The ACSL translator does not check the detailed syntax of the FORMAT statement. For further specification, 
reference should be made to a standard FORTRAN manual. 

4.43 GAUSS 

A normally distributed random variable can be generated by 

y = GAUSS(m, s) 

GAUSS(y = m, s) 

y will be normally distributed with mean m and standard deviation s. 

NOTE: Warning listed under UNIF. 

The seed for a random sequence can be reset by UNIFI or GAUSI. If not set, a different random 
sequence will be in effect for each run. Figure 4-6 gives a listing of the operator macro. 
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MACRO GAUSS(Y, AVE, BIG) 
Y^AVEiGRV ( ZZSEED ) * ( SIG ) 
MACRO END 



Figure 4-6. Listing of GAUSS Operator Macro 



4.44 GAUSI or UNIFI 



The seed for the random number generator can be initialized by using this operator. Standard form of 
the call is 

GAUSI(k) 

UNIFI(k) 

where k is an integer constant or expression and should be an odd number for a maximal length sequence. 
If it's small (1,3,5 . . .) the first five or ten values of random numbers will be highly correlated. Figure 4-7 
gives a listing of the operator macro expansion. Only one initialization routine should be used since they both 
set the same seed variable. 

NOTE: This operator should only be invoked in the INITIAL section of an explicit program or 
provision must be made to skip over it except at the beginning of each run in an implicit 
program. If it is repeatedly executed, the random numbers won't change. 



MACRO GAUSI < SEED) 
PROCEDURAL <=SEED> 
ZZSEED^SEED 
END 
MACRO END 



Figure 4-7. Listing of GAUSI Operator Macro 



4.45 GO TO STATEMENT 

GO TO statements transfer control to a labelled statement whose reference is fixed or which is assigned 
during execution of the program. The statement labels used in the GO TO statements must be associated with 
executable statements in the same program unit as the GO TO statement. In explicit programs, the INITIAL, 
DYNAMIC and TERMINAL sections exist in a single program unit. However, control cannot be transferred 
into the DYNAMIC region. The reason for this is that the integration routines must be initialized at the start 
of the run and this initialization operation is done on leaving the INITIAL section and entering the DYNAM- 
IC section. Control can be transferred from the DYNAMIC region and between INITIAL and TERMINAL 
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regions. The DERIVATIVE section is a separate program block. 

In the following a statement label may be either numeric or symbolic. Standard forms of the various 
labels are: 

GO TO k 

Execution resumes at the statement labelled k. Example: 

GO TO LOOP 

GO TO m,(n!, n 2 . . . , n m ) 

GO TO m 

The statement acts as a many branched GO TO. m is a simple integer variable ASSIGNed a label value. 
The nj are statement labels which should correspond to a possible label assigned to m. 

GO TO (n b n 2 , . . . , n m ), i 
where: 

nj = statement labels 

i = a simple integer variable that has been given an integer value between 1 and m. 

If i has the value k, then control will be transferred to the k th statement label, n^, in the above list. 

WARNING: The inclusion of a large number of GO TO's is considered harmful to the successful 
completion of any simulation project. 

4.46 HARM 

A sinusoidal or harmonic drive function can be defined by: 
y = HARM(tz, w,p) 



Result: 



where: 



y = 0.0 T < tz 

y = SIN(w*(T - tz) + p) T > tz 



tz = delay in see 
w = frequency in rad/sec 
p = phase shift in rad 
Note that if p is nonzero a jump discontinuity will be involved. 

4.47 HYSTERESIS 

Use the backlash operator BCKLSH 

4.48 TABS 

Absolute value of an integer argument can be obtained by the function 

n = IABSG) 

j is an integer variable or expression of arbitrary complexity. 

NOTE: Integer variables must be declared to be type INTEGER. The default type is REAL. The 
function name IABS should be typed INTEGER as well. 
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4.49 IDIM 

Integer positive difference can be obtained by the function 

n = IDIMGi, j 2 ) 
where ii and j 2 are integer variables or expressions. 

NOTE: IDIM should be declared of type INTEGER prior to its use. 

Result: 

n = Ji j 2 ; Ji > j 2 

n = 0; Ji < J2 

4.50 IF STATEMENTS 

IF statements are used to transfer control conditionally. At the time of execution, an expression in the 
IF statement is evaluated and the result determines the statement to which the jump will be made. The most 
useful form is the one-branch logical IF. It has the standard form 

IF(lexpr) statement 

where lexpr is a logical or relational expression (one that has a single value - either .TRUE, or .FALSE.) and 
statement is any executable FORTRAN statement except another logical IF, a DO statement or END. 
Non- FORTRAN statements or those particular to ACSL may expand to more than one actual FORTRAN 
statement. Only a single statement can be included in the logical IF statement. Examples are: 

IF(A. LT. 5.0) A = A + 0.1 

IF(T. GT. TSTOP) GO TO FINISH 

The real switch (RSW) operator (q.v.) can often be used in place of an IF which then avoids having to bracket 
the IF code sequence by PROCEDURAL . . . END statements in order that statement order can be 
maintained. 

The three-branch arithmetic IF is also included for completeness. In general, these should be avoided 
entirely due to the difficulty encountered in following any complex branching structure. Use only logical IF's 
given before with explicit GO TO's which effectively act like a two-branch IF and avoid the statement label 
on fall through. Standard form of arithmetic IF is 

IF(c) n l5 n 2 , n 3 

where: 

c = any arithmetic expression 

n { = statement labels 

Control is transferred as 

c< 0, jump to statement n t , 

c = 0, jump to statement n 2 , 

c > 0, jump to statement n 3 

4.51 IMPL 

The solution of simultaneous or algebraic equations cannot be written directly because of the sort 
algorithm. Every value is assumed calculable on the outputs of the integrators or state variables. Equations 
of the form x = f(x) cannot be expressed in this form and it is necessary to find another way to calculate the 
output. Often an algebraic operation can be performed that can simplify the result. Feedback round a summer, 
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leads to 

Y = X - KY 

which cannot be modeled directly. 
A little algebra can easily give 

Y =^_ 



1 + K 



Some functional relations may be impossible to solve explicitly and so the implicit operator can be 
invoked. This will separate out the algebraic loop and use a Newton-Raphson iteration method to try to find 
a solution. 

WARNING: This operation can multiply the computer time need for a simulation study many times. 
It is worth spending some time trying to avoid implicit loops. 

The standard form for the function is: 

y = IMPL(yz, e, m, efl, expr, ydl) 

IMPL(y = yz, e, m, efl, expr, ydl) 



where: 



yz = initial guess 

e = the error bound - real constant or arithmetic expression 

m = the maximum number of iterations to try - must be an integer constant or variable - not 
an expression 

efl = the error flag - a variable only - which is set nonzero if the iteration does not converge 

expr = the expression that contains or eventually leads back to Y 

ydl = the value used to increment the initial value to estimate the derivative. If not specified the 
assumed value is 0.0001 

NOTE: The IMPL operator should not be used in a PROCEDURAL block that will prevent the 
correct sorting of any intervening statements. 

The iterative method used is Newton-Raphson to solve 

Y = f(Y) 

f — f 
r = n n - 1 i s the derivative estimate 

n Y -v 1 

f - C Y 

v _ x n ^n*n 

*n+ 1 i _ c 

Upon initial entry 

Y„-i = YZ 
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Y n = (1.0 + Y n )*Y n _i 
The error criterion for successful completion of the iteration is 

lY n -f n l<lY n l*E 

4.52 INITIAL 

Identifies the block of code that is performed just once before the start of each run. It must be 
accompanied by its own matching END card enclosing the block and the block must be placed before the 
DYNAMIC (q.v.) section. Refer to Subsection 3.1 for rules of explicitly structured programs. No sorting is 
done on any code within the INITIAL block. 

4.53 INT 

Integerization of a real floating point argument 
n = INT(x) 
n will be the sign of x times the largest integer <lxl 

NOTE: INT should be declared of type INTEGER prior to it use. 

4.54 INTEG 

All integration in an ACSL program is handled by a centralized integration routine. In performing 
integrations, the integration algorithms utilize two intervals - the calculation interval and the communication 
interval. Since digital integration is basically a discrete process, the calculation interval is the fundamental 
interval over which the state variables are updated. No finer detail is accessible except by some interpolation 
scheme. All integration schemes for the set of first order differential equations 

x = f(x) 

finish up looking like 

x n+l = x n + hf( x n+a) 

where <a< 1. The problem is to find the effective derivative to be used in updating the state vector. Note 
that with suitable conditions on continuity and differentiability, the mean value theorem guarantees that an 
a exists that will produce an exact answer for the state trajectory - finding it is another matter, however. 
Different integration schemes approximate the derivative in different ways - usually by expanding the 
derivative function in a Taylor series, about the current state. 

As an example, consider the Runge-Kutta integrations. The derivative function f(x) is evaluated four 
times and saved as the Vj. The first is the slope at the beginning of the interval: 

vi = f(x„) 

This slope is extrapolated half way across the interval and a new value calculated: 

v 2 = f(x n + 0.5 h Vl ) 

This new slope is brought back to the beginning of the interval and again used to extrapolate half way across 
the interval and a new slope evaluated 

v 3 = f(x n + 0.5 hv 2 ) 

This third slope is brought back to the beginning of the interval and used to extrapolate all the way across 
and a new slope evaluated there 

v 4 = f(x n + hv 3 ) 

We now have four slopes - one an exact one at the beginning of the interval and approximations - two in the 
middle and one at the end. Runge-Kutta says that the average slope to be used in updating the state is the 
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weighted average of these - assigning twice the weight to the slopes in the center of the interval as the ends, 
i.e., 

f(x n +o) = ( v i + 2v 2 + 2v 3 + v 4>/ 6 

Errors introduced at each step will normally be proportional to h 5 for this method. 

The form of the integration statement is either 

state = INTEG(deriv, ic) 

or embedded in any legal expression as a function that has a single output, the value of the state. When the 
integration statement is alone, then the state name can be identified - embedding in an expression means a 
generated variable must be used for the state. 

'state' = a simple variable or subscripted array name with a single integer CONSTANT subscript.* 

'deriv' = an arithmetic expression of arbitrary complexity, i.e., may contain further INTEG state- 
ments, functions or MACRO'S 

'ic' = a simple non-subscripted variable, a real constant or a general expression enclosed in paren- 
theses. If it is a simple variable (preferred), then this variable name must not be used as 
another initial condition, state, derivative or system variable name. 

If the expression form is chosen the statement is sorted in such a way that all components in the 
expression are evaluated before the state value is assigned. Equations using the state will then follow. Problems 
may occur when using this form with the REINIT command (q.v.) at model execution time. The expression 
will always be evaluated and substituted for an initial condition established by the reinitialization operation. 

Examples of use are as follows: 

ARRAY X(5) 

Y = INTEG(5.0*X + C, YIC) 

X(l) = INTEG(A + B, X1IC) 

X(2) = INTEG(INTEG(4.0*DD + X(l), 0.0), X2IC) 

Z = P*INTEG(ZDOT, 0.0) + BT 

W = INTEG(WDOT, (2.0*AL*SIN(TH))) 
The following comments are to be noted. 

1) That Z, in the above, is not a state since the INTEG function appears embedded in an expression. 

2) Once the array X has been defined as a state by the single INTEG statement, another assignment 
statement cannot be used to fill the other slots of an array. If one element of an array is a state, ALL 
elements of the array must be states; i.e., 

X(3) = W + 5.0*Y 

X(4) = AL*INTEG(ALP, 0.0) + W 

are both illegal when accompanying the above. 

Initial conditions can only be names not used as states, other initial conditions or system variables; i.e., 

YY = INTEG(YYD, YIC) 

ZZ = INTEG(Z*4.0, X) 

ZK = INTEG(KK, CINT) 



* See the vector integration operator INTVC for another way to solve matrix differential equations. 
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are all illegal when used with the above cards. CINT could be used if the system default name has been 
changed by a CINTERVAL statement (q.v.). 

The reason for the rules may be better understood if the actual translation operation is explained. The 
translator is building up three lists of names that will be placed in sequence in a FORTRAN common block. 
The state list will contain all the state variables and arrays, the derivative list will contain names that have 
values for the derivatives stored into them and the initial condition list will have names with values correspond- 
ing to the equivalent slot in the state list. The problem comes about that each name in these lists must be 
unique. The initial condition name for each state must be different. If it is a constant or an expression, a 
generated name is used (Znnnnn) but if it is a simple variable the translator uses that name directly. The 
expression form is changed into a test (IF statement) on the first evaluation of a run, in which case the 
expression is evaluated and the result stored into the state. The derivatives at present are all generated 
variables to avoid conflict since it was thought that integrating a state was too common a feature to eliminate. 
The statements 

YD = INTEG(5.0*X, 1.0) 

Y = INTEG(YD, YIC) 

will generate the following assignment statements 

Z09999 = 5.0*X 

Z09998 = YD 
and a DATA statement for the generated initial condition 

DATA Z09997/ 1.0/ 

Now the state list will be YD,Y; the derivative list will be Z09999, Z09998; and the initial condition list will 
be Z09997,YIC. Each name on the list is unique. 

From this we can show that it saves time to include the derivative expressions in the INTEG statement 
rather than calculating the derivative by name explicitly. Of course, if the derivative is needed in other 
calculation sequences then it must be given a name, but this would be an unusual case, i.e., 

YD = 5.0*X + YY 

Y = INTEG(YD, YIC) 
would be better done by 

Y = INTEG(5.0*X + YY, YIC) 

unless the value of the expression 5.0*X + YY is needed elsewhere in the program. The extra assignment 
statement is avoided. However, see the use of INTVC below for single elements - pseudo arrays of size one. 

4.55 INTEGER 

See type statements. 

4.56 INTERVAL 

In order to schedule repeated execution of a DISCRETE (q.v.) block, the INTERVAL statement is used 
both to define the name of the variable controlling the repetition period and its initial value. Standard form 
for the statement is 

INTERVAL name = real constant 

where 'name' is a simple unsubscripted variable name. There is no default and a DISCRETE section without 
an INTERVAL statement will never be executed. 
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The mechanization of the INTERVAL feature is to use the slot in the global MINTERVAL array 
corresponding to the DISCRETE block and equivalence the INTERVAL variable into this array. If no 
INTERVAL statement is placed within the DISCRETE block, a value of zero is used as the default which 
flags the DISCRETE block as not to be executed during the initialization phase. 

4.57 INTVC 

The restrictions on the INTEG operator with regard to initial condition and derivative arrays can be 
avoided by using this vector integrator operator. Standard form is 

x = INTVC(xd, xic) 

where x, xd and xic are arrays of the same size and correspond to state, derivative and initial condition 
respectively. See the program in Section 10 of Appendix A for examples of the use of the INTVC operator. 

The restrictions on the use of the INTVC operator are as follows: 

1) INTVC cannot be used in an expression. 

2) The derivative array must not appear anywhere else as a state. (If you must use a state as a derivative 

- velocity, for instance - use the block transfer (XFERB) subroutine to move it into another array 
before using INTVC. 

3) The initial condition cannot be a constant or expression. 

4) The array size may be one - or equivalently a single undimensioned variable can be used instead. In 
this case, the derivative name is used explicitly and no extra assignment statement is generated. 

5) The derivative array cannot be preset with a CONSTANT statement since it is cleared automatically 
to zero before the derivative evaluation routine is called the first time - after the INITIAL section 

- after every START. 

As an example consider 

ARRAY X(10), XD(10), XIC(IO), M(5, 5), MD(5, 5), MIC(5, 5) 

X = INTVC(XD, XIC) $ 'VECTOR INTEGRATION' 
M = INTVC(MD, MIC) $ 'MATRIX INTEGRATION' 

If R, V and A are range, velocity and acceleration vectors so 

ARRAY R(3), V(3), A(3) 
the following is ILLEGAL - 

V = INTVC(A, VIC) 

R = INTVC(V, RIC) 

since these statements ask for V to be considered as both a state and a derivative at the same time. Using the 
XFERB (transfer block) subroutine and defining an RD (R dot) array, the sequence becomes 

V = INTVC(A, VIC) 
CALL XFERB (RD = V, 3) 
R = INTVC(RD, RIC) 

4.58 I/O STATEMENTS 

FORTRAN read, write and file handling statements can be included and are recognized by the ACSL 
translator but a minimum of syntax checking is performed. Most errors will be indicated at the FORTRAN 
compilation that follows translation. 
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The following definitions apply to all the I/O statements covered: 

i = logical I/O number that determines the file. The logical unit numbers available depend on machine 
type and operating system. See addendum. 

i = 5 being the INPUT file or card reader 

= 6 being the OUTPUT or print file 

= 9 being the PRINT file - must be disposed of explicitly 

n = FORMAT declaration identifier which must be a statement label (number or symbol) 

L = input/output list. This list portion of an input/output statement indicates the data items and the order, 
from left to right, of transmission. The input/output list can contain any number of elements. List items 
may be array names, simple or subscripted variables, or an implied DO-loop. Items are separated by 
commas, and their order must correspond to any FORMAT specifications associated with the list. 
External records are always read or written until the list is satisfied. The ACSL translator does not 
check the syntax of the list - any character string will be accepted and errors will be indicated by the 
subsequent FORTRAN compilation. For more details on list format, refer to a FORTRAN reference 
manual. 

Standard form of the I/O statements are as follows: 

PRINT n, L - Information in the list L is transferred to the OUTPUT unit-printer or remote 
terminal - in accordance with the FORMAT declaration, n .N.B. Use LINES (q.v.) before the PRINT or 
WRITE to tell the executive how many lines are being written. Top-of-form is then handled automatically. 

WRITE(i, n)L - Same as PRINT above except the file is determined by the value of the unit i. Valid 
logical unit numbers depend on machine type and operating system. See addendum. 

READ n, L - One or more card images are read from the standard INPUT unit - card reader or 
remote terminal. Information is converted from left to right in accordance with the FORMAT specification, 
n, and is stored in the locations named in the list, L. 

READ(i, n)L - Same as READ above, except the file is determined by the value of the unit i. Valid 
logical unit numbers depend on machine type and operating system. See addendum. 

4.59 ISIGN 

Append a sign by 

n = ISIGNGi,j 2 ) 

where jj and j 2 are integer variables or expressions. Result is sign of j 2 times absolute value of jj and the result 
will be an integer. 

NOTE: ISIGN should be declared to be of type INTEGER prior to its use. 

4.60 LEDLAG 

A lead-lag compensator may be conveniently implemented by using the standard form 
y = LEDLAG(p, q, x, ic) 
LEDLAG(y = p, q, x, ic) 
Result: y will be related to input x through the transfer function 
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= El 



+ 1 



qs + 1 



y(0)= | x(0) + ic 

The same restriction on ic is present as for the INTEG operator, p and q may be expressions of arbitrary 
complexity. Figure 4-8 shows the mechanization of this operator as a system macro. 



MACRO 


LEDLAG<OUT,P,G 


, IN, 


IC) 


MACRO 


STAND VAL IC=0. 







MACRO 


REDEFINE X, Y 






X«IN 








OUT«Y+<P)*X/<Q> 






Y*?INTE6<<X~QUT)/<Q>» 


IC> 




MACRO 


END 







Figure 4-8. Listing of LEDLAG Operator Macro 



4.61 LIMINT 

Integrators should not be limited using the BOUND function since the integrator will continue to 
integrate and will thus require a time to integrate out of the limit when the derivative changes sign. The 
LIMINT operator holds the integrator at the limit as long as the derivative is of such a sign to drive it further 
into limit.* When the derivative reverses sign, the integrator will immediately come off limit. The operator 
has the standard form 

y = LIMINT(yd, ic, ti, uft) 
LIMINT (y = yd, ic, H, ul) 

where: 

yd = an expression for the derivative 

ic = y(0) - same restriction on ic as on the INTEG statement; may be omitted if zero 
$.$.= lower limit on y 
ujE = upper limit on y 
Figure 4-9 shows the effect of the LIMINT operator. 

4.62 LINES 

Used to tell the executive processor how many lines are going to be written with PRINT or WRITE 
statements. Pass by this if you do not use FORTRAN FORMAT statements. The executive processor at 
run-time keeps track of the number of lines written on the output file and every 55 lines issues a top-of-form 
and prints out the header and TITLE. If FORTRAN write statements are included in the model definition 
they are expected to inform the processor how many lines they are going to write so that the pagination is 
performed correctly. Standard forms of the call are 



* See DBLINT operator for double integration, acceleration to displacement with limited displacement. 
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yd' IS MADE ZERO WHEN y EXCEEDS BOUNDS 



Figure 4-9. Effect of LIMINT Operator 

CALL LINES (n) 

where n is the number of lines about to be printd. If n lines are not available on the current page, the page 
will be ejected. You should not issue your own top-of-form by making Column 1 a digit 1. 

CALL LINES(2) 

PRINT99, A, B, C 

99 . . FORMAT(lX, 2E12.5/1X, F12.2) 

In order to force a top-of-form prior to the write, call subroutine PAGE(q.v) before calling LINES. 

4.63 LOG 

The data logging operation for the OUTPUT and PREPAR lists can be forced by a call to this 
subroutine. Data logging only takes place after each pass through the DYNAMIC section and on exit from 
the TERMINAL section. Finer detail can be recorded by judicious use of this operation. An example of use 
is as follows: 

LOGICAL HIRATE 

IF(HIRATE) CALL LOG 

which will force the data logging action whenever logical variable HIRATE is true. 

4.64 LOGICAL 

See type statements. 

4.65 LSW, RSW 

Logical (or integer) and real switch functions. The standard form of these two operators is 
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i = LSW(p,j 1 ,j 2 ) 

y = RSW(p, x h x 2 ) 

The functions take on the value of the second argument, jj or Xj, when the logical expression p has the value 
.TRUE., otherwise the value of the third argument, j 2 or x 2 . The j x and j 2 are any integer or logical expressions; 
x x and x 2 are real expressions. 

NOTE: LSW should be declared to be of type INTEGER prior to its use. 

4.66 MACRO 

Denote the beginning of a MACRO definition if not already within a definition. Within a definition 
denotes special subcommands to be interpreted by the MACRO processor. For a full description of the 
MACRO capability see Section 6. 

4.67 MAXO 

Maximum of a string of integer arguments can be obtained from 

n = MAX0(Ji, J2> • • • » Jn) 
where the jj are integer variables or expressions; any number of arguments may be included. 
NOTE: MAXO should be declared of type INTEGER prior to its use. 

4.68 MAX1 

Maximum of a string of real arguments can be found from the function 

n = MAXl(x x , x 2 , . . . , x n ) 

where the Xj are real, floating point variables or expressions. Any number may be included. Result will be the 
integerized value of the largest x i? where the integerized value is the sign of the Xj times the largest integer 
<| Xi l 

NOTE: MAX1 should be declared to be of type INTEGER prior to its use. 

4.69 MAXTERVAL 
See MINTERVAL. 

4.70 MERROR, XERROR 

Relative and absolute error bounds - per step - for individual state variables. They are written in the 
standard form - 

MERROR Vj = real constant, v 2 = real constant, etc. 

XERROR v x = real constant, v 2 = real constant, etc. 

where the Vj are nonsubscripted variable names that are state variables, i.e., appear opposite an INTVC or 
INTEG statement that is not embedded in an expression. The state itself can be an array, but then the errors 
specified will apply to all elements in the array. Individual elements cannot be given separate error tolerances. 

MERROR is used for relative (fractional) errors and 

XERROR for absolute errors. 

If any relative or absolute errors are specified, the FIRST specification encountered will be applied to 
all integrators that are unspecified. If no values are specified, the relative and absolute errors will both be set 
to 1.0E-4. 
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Example: 

MERROR X = 1.0E-4, Y = 1.0E-6 
where: 

X = INTEG(XD, XIC) 

Y = INTEG(YD, YIC) 

Z = 5.0*INTEG(ZZZ, 0.0) + COS(X) 

Note Z in the above example cannot have any error bounds specified since it is not a state. The actual state 
will be a generated variable which will be placed in the assignment statement instead of the INTEG function. 

The MERROR and XERROR statements have meaning only for the variable step-size integration 
algorithms and are used to bound the error introduced at each step. Based on the maximum absolute value 
of a state variablelVjl max since the start of the run*, the allowable error bound is defined to be 

Ei = MAX(X i5 Mjlv,!^) 

If any of the predicted errors in a step of the integration program are greater than the corresponding 
Ej, the calculation interval or step size is reduced appropriately. If the error is still too large after the step 
size has been reduced to the minimum, the ERRTAG variable, if any, is set .TRUE, and the run aborted. 

4.71 MINO 

Minimum of a string of integer arguments can be found from the function 

n = MINOGi, J2» • • • » Jn) 
where the jj are integer variables or expressions. Any number of arguments may be included. 
NOTE: MINO should be declared to be of type INTEGER prior to its use. 

4.72 MINI 

Integerized minimum of a string of real arguments can be found from the function 
n = MIN1(X2, x 2 , . . . , x n ) 
Arguments will be the same as for MAX1. 

NOTE: MINI should be declared of type INTEGER prior to its use. 

4.73 MINTERVAL, MAXTERVAL 

The minimum and maximum calculation intervals (integration step size) can be controlled and renamed 
using these statements. If a variable step size algorithm attempts to go below the value of the minimum step 
size, the error tag will be set. If it is already set, the termination flag will be set. Standard form for the 
statements are 

MINTERVAL name = real constant 

MAXTERVA1 name = real constant 

where 'name' is a simple unsubscripted variable name. Default names for these variables are MINT and 
MAXT so why not use them? They can be set by assignment statements in the program or by SET commands 
at run-time. Example: 

MINTERVAL MINT = 1.0E-6 



* Use of CONTIN at run-time defines the start of a new run in this sense since the integration routine has 
to be reinitialized. 
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then at run-time 

SET MINT = 2.0E-6 

MAXTERVAL may be used to control the step size independently of the communication interval changes 
if NSTEPS (q.v.) is made 1. The calculation interval (step size) is started off at the CINT/NSTP and this 
is then forced to lie in the region MINT to MAXT. 

4.74 MOD 

Modulus, or remainder, of an integer divided by an integer can be obtained by 

n = MOD(Ji, j 2 ) 

where j x and j 2 are integer constants, variables or expressions. 

Result is remainder of jj divided by j 2 . When j 2 is negative, this isn't quite correct. What actually happens 
is that the result is jj - [J1/J2] J2 where [ ] is an integer with magnitude of not more than the argument and 
with the same sign. 

NOTE: MOD should be declared to be type INTEGER since the default for all variables is type 
REAL. 

4.75 MODINT 

Moded integrator allows operation in reset and hold mode as well as normal operate. The mode of the 
integrator is determined by the two flags in the call. Standard form is 

Y = MODINT(yd, ic, B, 12) 

MODINT(y = yd, ic, jei. 42) 
where: 

yd is the derivative variable or expression. 

ic is the initial condition - see INTEG for restrictions on initial conditions. 
XI and 12 are logical variables or expressions of arbitrary complexity denoting the mode. 
The truth table is 



JM 


n 


Mode 


T 


F 


reset 


F 


F 


operate 


T 


T 


operate 


F 


T 


hold 



where 

T = .TRUE, and F = .FALSE. 

Figure 4-10 shows the mechanization of this operator as a system macro. 
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MACRO MOD INK Y, D, IC, LCV1 * LCV2) 

MACRO RELABEL B 

MACRO REDEFINE ICTEM, STATE, STORE, MODED 

LOGICAL MODED 

CONSTANT STORED. 

PROCEDURAL (Y, MODED^STATE, IC, LCU:U LCV2) 

CALL ZZICSC ICTEM^STORE ) 

I F ( ZZFST ( STATE ) . LT .0.5) GOTO B 

MODED*:. FALSE. 

I F < ( LC V 1 ) . AND . ( LCU2 ) . OR . . NOT . ( ( LC V 1 ) . OR . ( LCV2 ) ) ) GOTO B 

MODED=. TRUE. 

IF ( LCV1 ) ICTERIC -STATE 

B. . Y«STATE+ICTEM 

END 

state<i:nteg<zzrsw<moded, o.,d), ic> 
macro end 



Figure 4-10. Listing of MODINT (Moded Integrator) Operator Macro 

4.76 NSTEPS 

Defines the calculation interval - integration step size - in terms of the communication interval. It 
renames the integer variable that defines the number of integration steps in a communication interval. 
Standard form of the statement is 

NSTEPS name = integer constant 

where name is a simple nonsubscripted variable. The default name is NSTP and is normally given a value 
of 10. This means that the integration step will be one-tenth the communication interval. 

The variable named in the NSTEPS statement is automatically typed INTEGER. The name defined 
in the NSTEPS statement (or NSTP by default) can be set by assignment statements within the program 
itself. 

The maximum and minimum step size values MAXT and MINT take precedence over the step size 
arrived at by dividing the communication interval by NSTP, i.e., the step size H is given by 

H = MAX(MINT, MIN(MAXT, CINT/NSTP)) 

It is recommended that the value of NSTP be made unity so that the integration step size can be controlled 
by the value of MAXT, specified by a knowledge of the plant dynamics i.e. include the statement NSTEPS 
NSTP = 1. If CINT/NSTP is controlling, then a change in observation interval CINT will require a 
corresponding change to NSTP to keep the same step size. Having to change two variables for one result is 
normally considered bad programming practice. 

4.77 OU 

Band limited white noise can be implemented by this function. A normal random number generator 
(GAUSS) will deliver a fixed total power - rms value - but the frequency spread will depend on the current 
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calculation interval. Usually, the low frequency power density is important so casual use of GAUSS into a 
low pass filter will lead to ill-defined variation of this quantity as the step size is changed. The Ornstein- 
Uhlenbeck process maintains a constant source of power over a specified frequency band, so eliminating any 
problem of having to include the current calculation interval in the standard deviation of the random variable. 
Standard forms are 

y = OU(r a , m, s) 

OU(y = r a , m, s) 



where 



r a is the low-pass filter time constant. Break frequency is 1/2 xr a Hz 
m is the mean value of Y 
s is the standard deviation of Y (rms value) 
The operator is implemented by generating a correlated noise sequence from the general formula 

-A t 



n i+l = n i e T + w i 

where 

t is the correlation time constant 

A t is the sample interval 

ojj is a gaussian random variable 
We would like to find the a>j that will produce the correct noise power or such that 

7 2 =7 
Square the above equation for n i+1 and take expected values 

-2At 
n i+l = n i e + "i 

since we can assume the random drive uncorrelated with the noise sequence, i.e. 



n^co j = 



But n?= n? + | = a 2 



-2At 



so co? = a 2 (l - e ) 

Now the sequence can be expressed by 



-At A -2A t 



K 



4+ 1 = n i e T + a ^[ (1 -e T ) gj 
where g { is a gaussian random variable of zero mean and unit variance. 
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4.78 OUTPUT, PREPAR 

Variables to be recorded at each communication interval can be specified by these two statements. In 
general, these statements should be viewed as part of the exercising of the model and included in the run-time 
commands. It is realized, however, that standard lists may be defined and, in that case, may be included within 
the model definition part of the program. The statements are accomplished by system MACRO'S so the 
arguments must be enclosed in parentheses for the model definition. The corresponding run-time commands 
do not have parentheses. Standard forms are 

OUTPUT (v lf v 2 , v 3 , etc.) 

PREPAR (v b v 2 , v 3 , etc.) 

where v ; are either simple variables or array names. If the Vj are array names, the entire array will be reported. 
In this form it is not possible to select array elements. 

OUTPUT designates the variables that will have their values recorded on the print file as the run 
progresses at each communication interval. PREPAR records the values on a save file that is used by any 
subsequent PLOT or PRINT commands. The OUTPUT list cannot be in columns, since each communication 
interval the entire block of output variables must be printed. Once the data has been saved, it can be put into 
columns by repeated passes down the file. 

N.B. The OUTPUT and PREPAR statements in the model definition wastes core space since the names 
must be preset into a data array and then transferred once at run-time to the lists used by the executive. Only 
one OUTPUT and PREPAR statement is significant. If more than one is used the first one will be effective. 

Any run-time OUTPUT or PREPAR statements will override these statements embedded in the model 
definition. 

For an explicit program (Subsection 3.1) they should be placed in the INITIAL section. They must not 
be placed in the TERMINAL section. 

These statements are translated to a subroutine call that passes the list of names given. The appropriate 
list (OUTPUT or PREPAR) is checked and if the length is currently zero, the list of names is added. If the 
length non-zero, no action is performed. By this means, build up is avoided in loops and the run-time 
specification will override the model definition specification. 

4.79 PAGE 

In order to control pagination, subroutine PAGE can be used to force a top-of-form and turn on or 
suppress auto page eject. As a by product, the number of lines left on the current page is returned as the second 
argument. The format of the call is 

CALL PAGE (K, nJL&) where K is a code to modify the page eject as follows: 

= -2, suppress auto page eject, eject next write 

= -1, suppress auto page eject 

= 0, ignore but return 'NLL' 

= 1, turn on auto page eject 

= 2, turn on auto page eject, eject next write 

nJLJL is returned as the number of lines left on the current page. In order to force a new page before writing 
ten lines via a formatted write statement use 

CALL PAGE (2, NLL) 

CALL LINES (10) 
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WRITE (6, 99) . . . 

The ACSL system normally operates in an internal auto page eject mode. The exception is the printer PLOT 
command when plots can span page boundaries. Auto page eject is restored after each PLOT. 

4.80 PREPAR 

See OUTPUT. 

4.81 PRINT 

See I/O statements. 

4.82 PROCEDURAL 

Denotes the beginning of a block of PROCEDURAL code that will finish with a matching END. The 
code within the block will be executed in the sequence given and no attempt will be made to reorder it. Form 
of statement 



PROCEDURAL (output list = input list) 



where: 



output list = variable, variable, variable ... 

input list = expression, expression, . . . 

The output list should contain only nonsubscripted variable names. They may belong to arrays however, in 
which case the entire array must be filled within the block. The sort algorithm requires that values only appear 
as outputs once - otherwise, the error message 'multiply defined output symbol' is issued. 

So 

A(1)=X + Y 

A(2)= Y + Z 

flags the variable A as having a value placed in it twice and so illegal. An acceptable form would embed this 
sequence in a PROCEDURAL block. 

PROCEDURAL(A = X, Y, Z) 

A(1)=X + Y 

A(2)= Y + Z 

END 

which tells the sort routine to place the block before a reference to any element of the array A. 

PROCEDURAL . . . END brackets need only be used in a DERIVATIVE section where the code is 
sorted. Remember PROGRAM . . . END alone is an implicit DERIVATIVE section. Code placement in the 
INITIAL, DYNAMIC, or TERMINAL sections is unsorted so although PROCEDURAL . . . END may 
be used, it will have no effect. 

Within a DERIVATIVE section, the entire block is moved so that is is placed after the calculation of 
all variables on the input list and before the use of any variables on the output list. Although other variables 
may be present on the list, sorting is only with respect to variables calculated within the same DERIVATIVE 
section. The sort operation never moves code across section boundaries. The entire DERIVATIVE section can 
be made a PROCEDURAL block and since it then can't be moved, no input or output argument list is 
necessary. PROCEDURAL . . . END brackets should always be used around code constructs in which the 
order must not be changed. Typical operators are DO, GOTO and IF (three way or single branch). 
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Expert users may lie in specifying what is on the input/output lists. The ACSL translator never looks 
inside the PROCEDURAL block to ensure compliance with the list supplied, so it is possible to break 
algebraic loops for approximate solution by omitting one of the loop variables from the PROCEDURAL input 
list. Since this variable will be used before it's calculated, initialization is required in the INITIAL section. 
In breaking implicit loops this way, the last value of the variable will be used which is satisfactory in a large 
number of cases. Be warned however that the results will change with step size and a variable phase shift will 
be present in traversing the implicit block. 

NOTE: Statements involving memory operators which must be sorted into correct execution 
order should not be included in a PROCEDURAL block. These are ZHOLD (zero order 
hold), DELAY, DBLINT, DERIVT, (the derivative operator) and for other reasons IMPLic- 
it. 

4.83 PROGRAM 

The first card in the model definition section must be this card; it has the form 

PROGRAM any character string except a dollar sign 

The character string is not used in any way and serves merely to identify the deck and listing. This card must 
be accompanied by a matching END statement to terminate the model definition section. 

4.84 PTR 

A resolver - polar to rectangular - can be implemented by the standard form 

PTR(X, y = r, th) 

Result is 

x = R*COS(th) 

y = R*SIN(th) 

where the angle, th, must be expressed in radians. Figure 4-1 1 lists the mechanization of this operator as a 
system macro. 



MACRO PTR < X 1 .- X2 , R, TH ) 
X1«<R>*CQS<TH> 
X2«(R)*SIN<TH) 
MACRO END 



Figure 4-1 1 . Listing of PTR (Polar to Rectangular) Operator Macro 

This form is not a functional representation since there are two outputs. Thus, this statement cannot be 
embedded in an expression. It can only stand alone as shown. 

4.85 PULSE 

A train of pulses can be generated using the PULSE function. The independent variable, default T, is 
used to drive it. Note that the integration step size may affect the answers in that too large a step could cause 
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the pulse to stay on indefinitely. The output will always be turned on (=1.0) at the beginning of the first 
calculation interval that follows the exact turn on time. Standard form is 



y = PULSE(tz, p, w) 



Result 



Y is a pulse train (0.0 or 1.0) starting at the first calculation interval that equals or exceeds tz. Period 
is p and width is w. 
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4.86 QNTZR 



A variable may be quantized so that only discrete values are used. It is a zero centered system as shown 
in the diagram. Standard form 



y = QNTZR(p, x) 



Result: 




where x and p are real variables or expressions. 

4.87 RAMP 

The RAMP function generates a linear ramp of unit slope, starting at a specified time. It is another way 
of applying a dead zone (DEAD q.v.) to the independent variable. Standard form is: 

y = RAMP(tz) 

Result is: 

y = 0.0 T < tz 

y = T - tz, T > tz 
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RAMP starts at first calculation interval that equals or exceeds tz. 

4.88 READ 

See I/O statements. 

4.89 REAL 

See type statements. 

4.90 REALPL 

A first order lag may be implemented by the standard form 
y = REALPL(p, x, ic) 
REALPL(y = p, x, ic) 



Result: 



y will be related to input x through the transfer function 

y i 



x P s+ i 

Y(0) = ic 

The same restrictions on ic are present as for the INTEG operator; if zero, it may be omitted. P may be an 
expression of arbitrary complexity. Figure 4-12 lists the macro to implement this operator. 



MACRO 


REALPL <Y, 


P, X, 


IC) 


MACRO 


STANDVAL 


:i:oo 


. 


Y~INTEG(<X--<Y)) 


/<P) 


, IC) 


MACRO 


END 







Figure 4-12. Listing of REALPL Operator System Macro 



4.91 RESET 



A special operator is provided for use in the INITIAL section that can initialize the state variables and 
optionally perform intermediate calculations. Normally when entering the INITIAL region, the state variable 
names are undefined - it is only on exit from the INITIAL region to the DYNAMIC region that the 
initialization operation is performed. Remember the prime objective of the INITIAL region is to calculate 
the unknown initial conditions. Two forms of the call are possible so 

RESET ('EVAL') 

RESET ('NOEVAL') 

where the argument explicitly says whether or not a complete derivative evaluation is to be attempted. It is 
the user's responsibility to ensure that unknown initial conditions have "reasonable" values to prevent arithme- 
tic errors (divisions by zero say). An example would be calculating the initial conditions to be placed on the 
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accelerometer filters in a missile simulation. In order to obtain the nominal acceleration, the missile velocity 
vector must be rotated into the missile axes, the angle of attack determined and the aerodata looked up to 
obtain force coefficients. This code must be expressed in terms of the inital condition variables rather than 
the state variables unless the RESET operator is used. 

This extra code can be avoided by 

RESET ('EVAL') 

at the beginning of the INITIAL region since the derivative subroutine would calculate body acceleration 
using the state variable names. The problem is that the process is not selective - calculations of all state variable 
derivatives is attempted. In the above example the output of the accelerometer filter must lead somewhere 
and if initialized indefinite will lead to an arithmetic error. If the undefined initial conditions are preset in 
a CONSTANT statement (0.5 is a useful default number) then the calculation can proceed and the meaning- 
less numbers can be disregarded. The important thing is that all the calculations can proceed without 
arithmetic errors. 

The operator is defined in terms of a state vector S, and the initial condition vector IC. The state 
derivative vector is given by 

S = f(S, T) 

Now the RESET(a) action is 

S <- IC, T <- XICITG 

if (a=EVAL) evaluate f(S, T) 

4.92 RSW 

See LSW (logical switch). 

4.93 RTP 

A resolver - rectangular to polar - can be implemented by the standard form 
RTP(r, th = x, y) 
Result: 



r =vx 2 + y 2 

th = ATAN2(y, x) 

The angle, th, will be in radians and will cover the range - -w to + x depending on the magnitude and signs 
of x and y. Figure 4-13 shows the mechanization of this operator as a system macro. Note the second argument 
of the arc- tangent (ATAN2) is modified by the addition of a very small amount. Inputs of 0.0, 0.0 will return 
an angle of zero instead of indefinite. 



MACRO 


RTP<R, 


TH, XI 


/ Xx: 


!> 


R«SQR' 


f<<Xi)**2+<X 


2)**2> 


TH=ATAN2<X2, 


Xl + 1. 


0E- 


•30) 


MACRO 


END 









Figure 4-13. Listing of RTP (Rectangular to Polar) Operator Macro 
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This form is not a functional representation since there are two outputs. Thus, this statement cannot be 
embedded in an expression. It can only be used as stand alone as shown. 

4.94 SAVE 

The current MACRO tables containing the MACRO names and packed definitions are written - in 
binary - on the ACSL System Macro File. This operation allows each user to maintain his own file of 
MACRO'S separate from the system file. 

The normal operation of the system is to read into the MACRO definition tables, the contents of this 
Macro File before the translation begins. If it does not exist, no MACRO definitions are present. 

Action of SAVE is to write the current contents of the MACRO tables back on this file, thus destroying 
the original contents. To use SAVE you must have WRITE permission on the current MACRO file. 

4.95 SCALE 

Rounds the given maximum and minimum values so that they are suitable for plotting. Standard form 
of the call is 

SCALE(smn, smx = ymn, ymx) 

where: 

ymn and ymx are the minimum and maximum values 

smn and smx are the scaled minimum and maximum to be used on a plot (i.e., rounded to multiples 
of 1, 2, 4, or 10) 

The first two arguments need not be distinct frm the second, i.e., 

SCALE(ymn, ymx = ymn, ymx) 

replaces actual minimum and maximum values with the rounded ones. 

Normally, this operator should be used in the TERMINAL section of an explicit program to establish 
scale factors for subsequent PLOT (q.v.) commands. It is only used when two or more plots need the same, 
originally unknown, scale factors. 

4.96 SIGN 

Append a sign by 

y = SIGN(x l5 x 2 ) 
where: 

Xi and x 2 are real, floating point constants, variables or expressions. 
Result is the sign of x 2 time the absolute value of x x ; 
To mulitiply by the SGN of a variable where 
SGN(x) = +1.0 x>0.0 

SGN(x)=-1.0 x<0.0 

the SIGN function can be used so 

y = X*SIGN(1.0, Z) 
which will give 

y = X*SGN(Z) 
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NOTE: The result of SIGN(X,Z) is not the same thing as X*SIGIM(1 .0,Z). 

4.97 SIN 

Takes the sine of a real argument which must be in radians 
y =. SIN(x) 
Result will be such that - 1 .0 < y < 1.0 

4.98 SQRT 

Take the square root of a positive real argument x. 
y = SQRT(x) 

4.99 STEP 

The STEP function produces a change from zero to one in the output at a specified value of the 
independent variable. Standard form is 

y = STEP(tz) 

Result is 

y = 0.0, T<tz 

y = 1.0, T>tz 

Y 

n 



1.0 -• 



-»-T 



TZ 

Pulse starts at first calculation interval that equals or exceeds tz. 

4.100 TABLE 

Used to describe an arbitrary function of one, two or three variables. A separate TABLE statement must 
be used to define each function. The standard form is: 

TABLE name, n, dimension(s)/data list/ 

where 'name' = name of the function. The value will be accessed by name (argl), name (argl, arg2) or 
name (argl, arg2, arg3) for functions of one, two or three variables respectively. The 
arguments in the above are arithmetic expressions, hence can contain an arbitrary level 
of complexity. 

'n' = an unsigned integer constant giving the number of independent variables; must be 1 , 2 
or 3. 

'dimension(s)' = unsigned integer constants; the number of constants must correspond to the value for n. 
The value of the constants give the number of discrete data points for each successive 
independent variable. A dimension of one is illegal. 

'data list' = real constants: First comes the list of independent variable values. The number of these 
points should equal the sum of the dimensions. Then, the data points of the function with 
the first argument varying fastest. The number of function data points must equal the 
product of the dimensions. 
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All data points for the independent variables (break points) must be of monotonically increasing order 
- values may be identical but a breakpoint must never be less than a preceeding value. Each TABLE statement 
may contain as many data points as desired. Once the function has been defined it may be referenced just 
like any other ACSL function. Repeat counts may be used in the data specification. 

Examples of use in tables of one, two and three variables. Breakpoints are 2 for arg a, 3 for arg b and 
4 for arg c. 

TABLE F1ARG, 1, 2/0.0, 1.0, f b f 2 / 

TABLE F2ARG, 2, 2, 3/0.0, 1.0, - 1.0, 0.0, + 1.0 . . . 

fib ^21* fl2> ^22' fl3> hz/ 

TABLE F3ARG, 3, 2, 3, 4/0.0, 1.0, - 1.0, 0.0, + 1.0, 0.0, 0.1, 0.2, 0.3 .. . 

All* ^211» fl21> ^221' fl31> *231 • • • 

>fll2> ^212' fl22> *222> ^132' *232 • • • 

>fll3> *213> fl23> ^223' ^133* *233 • • • 

'^114' f214> ^124' ^224» ^134* ^234/ 

For all function generation routines, if the calculated values of the independent variables lie outside the 
range specified by the TABLE statement, the values for the function will be obtained by extrapolating from 
the last values given. 

The table operator makes up a MACRO of the same name as the function so that all references after 
the table definition are caught. An array is also defined with the same name and enough storage to contain 
both function data values and the corresponding argument breakpoint values. This array name is entered into 
the dictionary and it may be accessed in normal fashion by SET, DISPLY etc. commands. One point to note 
is the order of data entry into the array - the function data is listed first, then the breakpoint values follow. 
This order is the opposite from that listed in the TABLE statement. It was felt that the more normal operation 
at run time was changing function values rather than breakpoints. 

Consider the pitching moment table as a function of Mach number 

TABLE CM, 1,5... 

/0.0, 0.8, 1.2, 1.5, 2.5 .. . 

,0.50,0.51, 0.92,0.83,0.15/ 

This will make up an array CM(10) - the first five words will contain the function values 0.50, 0.51, 0.92, 
0.83, 0.15; the words six through ten will contain the breakpoint values 0.0, 0.8, 1.2, 1.5, 2.5. To change the 
function value for Mach 1 .5 we can 

SET CM(4) = 0.65 

To change the breakpoint from Mach 1.5 to Mach 1.6, we must calculate the position in the table (= 5 + 
4) so 

SETCM(9) = 1.6 

will change the breakpoint. For multidimension tables, the function data all comes first, then the breakpoint 
data in order - first, second, third argument. Remember the run-time command SET cannot access a 
multidimension array. 

When used, the function referenced is translated into an assignment to a dummy variable from the 
function look up subroutine i.e. 

Q = 0.5*RO(H)*V**2 
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would become 

Z09999 = ZZF1(10, Z09998, RO, H) 

Q = 0.5*Z09999*V**2 

where the first argument of ZZF1 (the 10) is the number of breakpoints, the second argument is the current 
breakpoint interval, the third argument is the array name which will contain the function value and the fourth 
argument is the expression that is the original argument expression. Note the problem with labels - if the 
original statement is labelled so that control can be transferred by other GOTO's. i.e. 

LI . . Q = 0.5*RO(H)*V**2 

The label will still be attached to the Q = statement in the translated text and the Z09999 — assignment will 
be bypassed unless control flows directly. Labels in general should be avoided and when used should only be 
attached to CONTINUE cards to prevent this problem (see Section 2.3 for more details) 

4.101 TAN 

Take the tangent of the real argument x which must be expressed in radians 

y = TAN(x) 

4.102 TERMINAL 

Identifies the block of code performed at the end of each run. It must be accompanied by a matching 
END card. In order to save calculating variables over and over again during the simulation run, the calculation 
can be placed in the TERMINAL block and executed only at the end of the. run. Radial miss distance is a 
case in point where range components XMT, YMT and ZMT may be available throughout the flight. Radial 
miss distance at the end would be computed from 

MISS = SQRT(XMT**2 + YMT**2 + ZMT**2) 

Placing this in the TERMINAL section would save the extra central processor time to evaluate this expression 
every integration step. Code in the TERMINAL section is not sorted. 

4.103 TERMT 

The terminate conditions must be specified that will stop the simulation run. In an explicit program, 
control will be transferred to the TERMINAL region and from thence back to the executive which will 
interpret the next sequential command. An implicit program will transfer control back to the executive 
directly. Standard form of the operator is: 

TERMT (logical expression) 

The run will terminate when the logical expression is .TRUE.. More than one TERMT statement can be used 
though it is usually better to extend the logical expression in the argument to cover all possibilities. It should 
normally be placed in the DYNAMIC region of an explicit program. 

Example, 

TERMT((H. LE. 0.0). OR. (V. LE. VMIN). OR 

(T. GE. TMAX)) 

A TERMT statement placed in the DYNAMIC section will stop the simulation at a communication 
interval. A TERMT statement placed in a DERIVATIVE or DISCRETE section will stop the simulation at 
the integration step (calculation interval) following when it becomes .TRUE.. 
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4.104 TRAN 

Transfer functions in the form of a ratio of polynomials in the Laplace operator, s, may be directly 
implemented in ACSL by the transfer function simulation operator. The simple first order transfer function 
- REALPL and LEDLAG and second order CMPXPL are preferred since the code generated is more 
efficient. Higher order operators should use TRAN. Standard forms are: 

y = TRAN(nn, nd, qn, qd, x) 

TRAN(y = nn, nd, qn, qd, x) 

where: 

nn is an integer CONSTANT giving ORDER of the numerator polynomial 

nd is an integer CONSTANT giving the ORDER of the denominator polynomial 

qn is the coefficient array for the numerator (may be a real constant if nn is zero) 

qd is the coefficient array for the denominator 

x is the input, an arithmetic expression of arbitrary complexity 

The polynomials are in the form of highest power of s coefficient first and any coefficient that is missing 
must be input as zero. Note nn + 1 and nd + 1 numbers are required in the numerator and denominator arrays 
since it is the ORDER that is defined, not the number of coefficients. 

All initial conditions are taken as zero and nn and nd must be integer constants, not symbols. That is, 
the order cannot be changed during a run, nor can it be changed artificially by setting the highest power of 
the denominator polynomial to zero, i.e., QD(1) must be nonzero. 

Example 1: 

G(s) = , 3s + 2 

s 3 + 2s 2 + 5 

ARRAY P(2), Q(4) 

CONSTANT P = 3.0, 2.0, Q = 1.0, 2.0, 0.0, 5.0 
OUT = TRAN(1, 3, P, Q, IN) 
Note the s 1 term has to be filled in as a zero in the Q array. 
Example 2: 

s J + 1 

ARRAY D(4) 

CONSTANT D = 1.0, 0.0, 0.0, 1.0 

Z = TRAN(0, 3, K, D, 5*X + COS(TH)) 

Note when the numerator is a single value it does not need to be declared in an array. Some way of calculating 
the value - constant or assignment statement or expression must be provided, however. Figure 4-14 lists the 
mechanization of this operator as a system macro. This listing is to be viewed as an example of the complexities 
that can be implemented using macros. 

4.105 TYPE 

Variables may be typed and optionally dimensioned at the same time by the three statements REAL, 
INTEGER and LOGICAL. The standard form of the statements is: 
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MACRO TRAN<OUT, NN, ND, P, Q, IN) 

MACRO ASSIGN N 

MACRO REDEFINE I,Z,ZD,ZIC 

MACRO RELABEL L1,L2 

MACRO MULTIPLY 

MACRO INCREMENT NN 

MACRO 10. . IF<N=ND>20 

MACRO IF<N=1000)999 

MACRO INCREMENT 1 

MACRO GOTO 10 

MACRO 20. .CONTINUE 

ARRAY Z < ND ) , ZD < ND ) , Z I C < ND ) 

CONSTANT ZIC«ND*0. 

PROCEDURAL <ZD=P* G, IN) 

ZD<1>»IN~Z<1>*G<2> 

MACRO IF<ND=1>25 

DO LI I«2,ND 

ZD( 1 )«ZD( 1 )-Z< I )*Q< If 1 ) 

LI. . ZD<I)*Z<I-1> 

MACRO 25. .CONTINUE 

Z£U->-«ZD<t>VQtt> 

END 

MACRO DECREMENT NN 

MACRO IF<NN=ND>26 

PROCEDURAL ( OUT=P, Z) 

MACRO IF<NN«0)30 

0UT«P<1)*Z(N) 

MACRO GOTO 27 

MACRO 26. .CONTINUE 

PROCEDURAL (OUT«P, Z, ZD) 

0UT«P(1)*ZD(1) 

MACRO 27. .CONTINUE 

DO L2 I«1,NN 

L2. . OUT=OUT+P< If 1 )*Z< I+N) 

MACRO GOTO 40 

MACRO 30. .CONTINUE 

OUT=(P)*Z<ND) 

MACRO 40. .CONTINUE 

END 

Z«INTVC<ZD,ZIC> 

MACRO EXIT 

MACRO 999.. PRINT NUMERATOR CREATE 

MACRO END 



THAN DENOMINATOR 



Figure 4-14. Listing of TRAN (Transfer Function) Operator Macro 
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REAL v b v 2 , v 3 , etc. 

INTEGER v 1? v 2 , v 3 , etc. 

LOGICAL vi, v 2 , v 3 , etc. 

where the V } are either simple variable names or else subscripted arrays with 1, 2 or 3 integer CONSTANT 
subscripts separated by commas. 

Examples are: 

INTEGER K, JJ(10), FRED(2, 2) 

LOGICAL FLAG 

Note no variable name need be typed as REAL as all variables are assumed to be this form unless explicitly 
typed otherwise. The FORTRAN convention that symbols starting with I, J, K, L, M or N are integer does 
not hold. 

4.106 UNIF 

A uniform random number sequence can be generated by 

y = UNIFU, u) 

Result is that y is a random variable uniformly distributed between a lower value jP and an upper value u. 

WARNING: The power density or what is usually more important, the low frequency power, will 
depend on the calculation interval. Variable step integration methods can produce 
peculiar results. See OU operator. 

4.107 UNIFI 

See Gaussian initialization, GAUSI. 

4.108 VARIABLE 

A nonsubscripted variable is designated as the independent variable for integration with its initial value 
given by a real constant. It is written in the form 

VARIABLE name = real constant, initial condition name = real constant 

If this statement is omitted, the independent variable will be called T, with an initial value of 0.0. The initial 
condition value will not have an accessible default name. 

4.109 WRITE 

See I/O statements. 

4.110 XERROR 
See MERROR. 

4.111 ZHOLD 

A zero order hold can be implemented with the standard forms: 
y = ZHOLD(ic, p, x) 
ZHOLD (y = ic, p, x) 
where: 

ic is y(0) if p(0) is false 
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p is the sampling switch, i.e., 
y = x, while p is true. 
y = previous value while p is false. 

x is the input to be sampled - an arithmetic expression of arbitrary complexity. 
Figure 4-15 gives a listing of the mechanization of this operator as a system macro. 



MACRO ZHOLIKY, IC, 8W, X) 

MACRO REDEFINE YL, YN 

CALL ZZICS<YN=*IC> 

CALL ZZICS<YL=IC> 

Y~YN 

CALL ZZHOL.tKX, IC, SW, YL, YN) 

MACRO END 



Figure 4-1 5. Listing of ZHOLD Operator Macro 

A monostable can be implemented using this feature by defining a triangular waveform DL that is zero 
when START becomes true. Before START is true, the large initial condition ensures that DL has a large 
positive value 

LOGICAL START, MONO 

DL = T - ZHOLD (-1.0E100, START, T) 

MONO = DL. LT. TMONO 

The logical variable MONO will be true for a time TMONO after START becomes true. Arrangements 
should be made for turning off START (making false) once MONO becomes true so that is is only activated 
by a pulse. 

IF (MONO)START = .FALSE. 

The ZHOLD step will only take place on the first pass through the DERIVATIVE subroutine of each 
calculation interval. Subsequent passes and iterations for predictor- corrector algorithms are protected from 
discontinuities in this way. Thus it is necessary to wait for the hold to be established before turning off the 
activating variable (START). 

This statement requires the sort algorithm to be operative, so it should not be included within a 
PROCEDURAL block. 

NOTE: The ZHOLD operator should not be used in a PROCEDURAL block that will prevent the 
correct sorting of any intervening statements. 

4.112 ZOH 

A zero order hold that is similar to the one used in MIMIC may be invoked by this function. The output 
is sampled repetitively every dt units. The standard forms are: 

y = ZOH (x, ic, tz, dt, i) 

ZOH (y = x, ic, tz, dt, i) 

where: 
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x is the input expression 

ic is the initial value for the output - up to tz 

tz is the time the sampling action starts 

dt is the sampling interval 

i is an optional integer variable starting at one and incremented before each sampling action: 
Fill an array by 

ZOH(ARR(I)=x, ic, tz, dt, I) 
Figure 4-16 presents a listing of this operator as a system macro 



MACRO 


ZOH(OUTPUT, INPUT, K 


;,to 


, DT, I) 


MACRO 


REDEFINE TL, TN 






MACRO 


ASSIGN N 






PROCEDURAL (TL^TO) 






TL-TN 








CALL "a 


:ZICS<T!..~TO) 






END 








MACRO 


IF<N~-6)10 






MACRO 


GOTO 20 






MACRO 


10. .CONTINUE 






MACRO 


REDEFINE IZ 






integer i, :i:z 






CONSTANT l'Z-1 






CALL ZZSMPI...n>IH, IZ,TL> 






MACRO 


20. .CONTINUE 






CALL \ 


'ZSHPL (OUTPUT- I NPUT 


IC, 


TL ) 


CALL : 


>!Z8MPL<TN=TL+DT,T0,' 


n...) 




MACRO 


END 







Figure 4-16. Listing of ZOH Operator Macro 

In order to generate a triangular wave (TWV) use 

TWV = T-ZOH (T, 0.0, 0.0, DT) 

The output of the zero order hold sampling T itself will be a staircase. When this is subtracted from T a 
triangular wave will result for: 



DT T 




2DT 



3DT 
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5. ACSL RUN-TIME COMMANDS 

Once the model has been translated, and has gone through the FORTRAN compile and load and is in 
execution, control is by a sequential set of commands that exercise the model. The order of execution is the 
order given and no branching or looping commands are available. Data values may be changed and once 
changed stay that way until changed by command or unless the code in the model definition recalculates them. 
Control is retained in the executive section until a START command is received when control is released to 
the model program and the integration starts. Some method of terminating the run must be present in the 
model definition code otherwise the executive will never regain control. (See TERMT operator, Chapter 4.) 

For typical command sequences used to exercise the models see examples in Appendix A. Throughout the 
description of these run-time commands the philosophy employed is that symbols or variable names imply the 
value stored in the location corresponding to the name. Strings in quotation marks stand for themselves and 
so may be general Hollerith data and act as a title, comments or subcommands or qualifiers to each of the 
main commands. 

If any data is needed by the command it must be supplied in the correct format - either integer, real or logical. 
An integer is a string of digits with no decimal point, a real number is a string of digits with a decimal point 
and/or exponent (E); a logical constant is .TRUE, or .FALSE. Hollerith data, i.e., strings in quotation marks, 
are considered to be of type integer. Integers used for real variables will be automatically floated prior to use. 

Whenever a data element is expected, a symbol can be substituted and the program will consider the data 
element to be that contained in the symbol. The type of the data is considered to be that associated with the 
symbol when the model was defined. As an example, consider 

OUTPUT T, A, B, 'NCIOUT' = I 

The subcommand 'NCIOUT' expects an integer following that is going to define the number of communica- 
tion intervals between OUTPUTS. The current value in the symbol I is used to specify this number. The symbol 
I must have been typed explicitly by 

INTEGER I 

in the model definition section since all variables not so typed are considered real. This feature does not provide 
a variable output rate changeable by the value in I as the simulation proceeds. It is the current value in the 
symbol that is used at the time the command is executed. 

Commands are the first variable names on the statement, separated from the arguments to the command 
by one or more spaces. Extra commands can be written on the same line by delimiting them by a dollar sign 
($). A command may extend over the end of a line by terminating with an ellipsis (three periods . . .). The 
following line is appended to the end of the previous card with trailing blanks suppressed. Leading blanks on 
the continuation card are not eliminated. Be careful when splitting a symbol that no blanks are accidentally 
inserted into the resulting string. Do not forget the delimiter if splitting between symbols (usually a comma) 
- it can be at the end of the card before the ellipsis or on the beginning of the following card. The latter is 
preferred mainly so that it stands out and cannot get lost if a large number of continuation cards are used. 

Arrays may be accessed by element but only a single index is allowed, i.e., referring to TABLE (2,4,3) 
is illegal. You should calculate the position in a linear array by assuming the first index varies fastest. If the 
previous array had been defined by 

ARRAY TABLE (10, 10, 10) 

the (2, 4, 3) element could be accessed by TABLE(232) (2 + (4 - 1)*10 + (3 - 1)*10*10). In general, it is 
recommended that arrays with more than one dimension be avoided. 
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5.1 ACTION 

Actions can be scheduled at different values of the independent variable. At present, these consist in 
changing a variable value such as setting a switch. 

The debug printout is produced if a system integer variable NDBUG is greater than zero. If it is, the 
debug list is written out and NDBUG is decremented by one. For example, five debug listings are needed at 
T = 0.0 and two at T = 1 .0. We can satisfy this requirement by 

ACTION 'VAR' = 0.0, 'VAL' = 5, 'LOC = NDBUG . . . 

, 'VAR' = 1.0, 'VAL' = 2, 'LOC = NDBUG 

Read this as schedule an action when the independent variable ('VAR') is zero, take a value ('VAL') of five 
and place it in the location ('LOC') NDBUG. When the independent variable is 1.0, take a value of 2 and 
place it in location NDBUG. 'VAR' and 'VAL' must precede the 'LOC they refer to. Output rates can be 
changed by scheduling similar actions on NCIOUT (number of communication intervals per output - default 
one). Each ACTION card is cumulative, the action scheduled being added to a linked list. It is not necessary 
to order the values of the independent variables. As with all other commands, a symbol name may be used 
where a data item is expected and the contents of this variable will be used. The value used however is the 
value at the time the ACTION card is analyzed, not that at the time the ACTION is performed. 

To remove all scheduled actions and start afresh, use 

ACTION 'CLEAR' 

Each time 'LOC is mentioned, an ACTION is set up using the then current values for 'VAR' and 'VAL' 
which don't have to be changed every time. 

5.2 ANALYZ 

The ANALYZ command invokes a linear analysis capability that can evaluate the Jacobian, trim the 
state variables to null the rates and also calculate eigen values and their associated eigen vectors. Subcom- 
mands available under this generic command are: 

'TRIM', 'JACOB', 'EIGEN', 'FREEZE', 'EIGVEC, 'EIGPER', 

'DISPLY', 'LIST', 'RMSEMX', 'FRACMX', 'FRACDL' 

The subcommands 'TRIM', 'JACOB' and 'EIGEN' are action commands with no data, the others on the list 
require a value or a name to follow. 

5.2.1 TRIM' 

The subcommand 'TRIM', transfers the initial conditions to the state variables computes the Jacobian 
and then using Newton-Raphson iteration adjusts the state variables until the derivatives go to zero i.e., if 

X = [A] X + [B] U 

the iteration is: 

Xn+i = X n - [A] - X n 

Use 'FREEZE' to remove states that cause the determinant of [A] to become zero. Use 'FRACMX' and 
'FRACDL' to limit the magnitude of the state change per iteration step. It is necessary to follow the TRIM 
by a REINIT (q.v.) in order to run the simulation from the steady state condition. 

5.2.2 JACOB' 

The subcommands 'JACOB' calculates the Jacobian about the current point in state space by numerical 
perturbation. The result is then printed out as a large matrix. Note the states must have been given values 
either by a preceding START or a 'TRIM'. 
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5.2.3 EIGEN' 

This subcommand 'EIGEN' calculates the Jacobian and then evaluates and lists the complex eigen values 
and optionally the eigen vectors and/or the performance of the eigen evaluator (requires access to IMSL 
library for EIGRF routine). 

5.2.4 FREEZE' = X, Y . . . 

This subcommand eliminates the listed variables from the state vector. Useful to eliminate open loop 
integrators prior to the trim operation. Open loop integrators form a zero column in the Jacobian so the inverse 
doesn't exist. Variables are only frozen for a single ANALYZ command and the action must be repeated for 
each invocation. 

5.2.5 EIGVEC = .T. (Default is .FALSE.) 

This command should precede 'EIGEN' and determines whether eigen vectors are to be calculated. Once 
set, it stays that way until changed. 

5.2.6 EIGPER' = .T. (Default is .FALSE.) 

This subcommand should precede 'EIGEN' and determines whether performance and figure of merit 
is given by the eigen vector analysis routine. If the figure is less than 1 , the eigen values are considered very 
good, between 1 and 100 probably alright and over a hundred the results can't be considered to have any 
accuracy. Once set, the flag stays that way until changed. 

5.2.7 'DISPLY' = .T. (Default is .FALSE.) 

In general ANALYZ operations are considered high volume operations written only on the PRN unit 
(like PLOT and PRINT). If 'DISPLY' is set true, output is repeated on the DIS unit if different for 
monitoring at the terminal. Once set, the flag stays that way until changed. 

5.2.8 LIST' = .T. (Default is .FALSE.) 

This subcommand turns on a flag that writes out details of the 'TRIM' iteration - successive values of 
the state vector, the derivative vector and residual. Once set, this flag stays that way until changed. 

5.2.9 RMSEMX' = 0.001 (Default is 0.0001) 

This subcommand specifies the allowable error at which trim convergence is obtained. Each state is 
associated with an allowable error in usual fashion by 

dXj = AMAX1 (XEj, ME j .ABS(X j )) 

where XEj and MEj are the absolute and relative errors specified for the particular state. This quantity is used 
in the Jacobian calculation as from 

Xi = Fi(Xj,X2 . . . ,Xj, . . .) 
der(Fi) = Fx( . . . ,Xj + dX } , . . .) - F t ( . . . ,X - dX } , . . .) 



der(Xj) 2 dXj 

During trim the weighted residual R is computed from: 



R = 
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and the iteration is continued until R is less than the value defined by the 'RMSEMX' subcommand. Once 
set, the value stays that way until changed. 

5.2.10 'IMITRMX' = 10 (Default is 50) 

This subcommand specifies the maximum number of iterations before the 'TRIM' command gives up. 
For a non-linear system, judicious choice of initial condition values may be necessary before a steady state 
can be achieved. Once set, this iteration count stays that way until changed. 

5.2.11 TRACMX' = 0.2 (Default is 1.0E30) 

This subcommand specifies the maximum fractional change in a state variable - applied at each step of 
the TRIM iteration. In highly non-linear problems the linear extrapolation can move the state vector into 
unallowable regions in state space if unconstrained. The use of 'FRACMX' is to restrict the movement and 
typical values are 1% to 10% or 'FRACMX' = 0.10. The state movement (state X) is never limited to a smaller 
value than allowable error dX;. 

X n+1 - X n < max(dX J5 FRACMX.abs(X n )) 

5.2.12 'FRACDL' = 0.8 (Default is 1.0) 

This subcommand specifies the fractional step actually taken when compared with that calculated by 
the Newton-Raphson iteration. With non-linear problems, taking the full step, 'FRACDL' = 1 .0, can cause 
cycling. The amount of the step can be reduced to prevent this, though at the expense of convergence speed. 

5.2.13 EXAMPLES OF ANALYZ COMMAND 

As examples of the use of the ANALYZ command, consider the following. In general, specification 
statements come before action statements. The sequence of operations is performed in a left to right manner 
with as many continuation lines as necessary. 

7ANALYZ 'LIST'=.T., 'FREEZE'=X, 'TRIM', ... 

? 'JACOB', 'EIGEN' 

This command turns on the list, eliminates ('FREEZE') the state X and its corresponding derivative from 
the Jacobian, finds a steady state and then evaluates the Jacobian and eigen values. 

7START 

7ANALYZ 'JACOB', 'EIGVEC'=.T., 'EIGEN' 

This command determines the Jacobian about the point in state space where the simulation terminated, 
specifies that eigen vectors are required and then calculates both eigen values and eigen vectors. Note if we'd 
used 'TRIM', the ending states would have been overwritten with the initial conditions. 

7 ANALYZ 'TRIM' 

7REINIT 

This command uses the current initial conditions to establish a steady state and then the REINIT command 
writes the current state vector back over the initial condition vector. Every subsequent START will now start 
from a trim or steady state condition. 

The use of ANALYZ presupposes that the model is defined by a sequence of non-linear equations of 
the form 

Xj = Fj(Xi, . . . ,Xj, . . . ,XN,t) 

The use of self contained states within the model - those not defined by INTEG and INTVC - will usually 
prevent the correct evaluation of the Jacobian. Likewise, memory operators such as ZHOLD, BCKLSH and 
DELAY should not be present. 
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Another point is that all initial conditions must be defined before 'TRIM' is invoked. If some are 
calculated in the INITIAL section, set a run time of zero and execute once prior to using ANALYZ i.e. 

SET TSTP = 0.0 

START 

ANALYZ 'LIST' = .T., TRIM' 

REINIT 

SET TSTP = 99.9 

START 

REINIT is used after the 'TRIM' to move the trimmed state variables back into the initial condition values 
so that the steady state point in state space will become the starting point for any subsequent run (START). 

5.3 COMMENT 

Comments may be included in the run-time drive cards by quoting the entire command, i.e. 
START $ 'EXECUTE THE MODEL' 
The comment may not contain either a quote (') or dollar sign ($). 

5.4 CONTIN 

The run may be continued where it left off, if the stop conditions have been changed, by CONTIN. This 
operation bypasses writing the initial condition into the state vector so that the program will continue to 
integrate from the previous position in state space. Note this command only makes sense after a START card 
has established a state and also the termination condition of the previous run must have been changed, 
otherwise it will stop immediately, i.e., 

model: 

CONSTANT TF = 10.0 

TERMT(T. GE. TF) 
run-time commands: 

START $'Run to 10.0 sec' 

SET TF = 15.0 S'Extend to 15.0 sec' 

CONTIN $'Run 10.0 to 15.0 sec' 

5.5 DISPLY (sic): Short Form D 

Display the values that are currently in the named list. Usually used at the end of a run to determine 
terminal values. 

DISPLY XI, X2, X3(5) 

Arrays, if not explicitly referred to by element, are listed in total. 

5.6 END 

Tells the run-time executive that a PROCEDure definition is complete. 
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5.7 MERROR, XERROR 

The relative and absolute errors allowable during the integration step may be individually specified by 
these commands. Each state is associated with a corresponding entry and the relative error table (MERROR) 
and absolute error table (XERROR): These two commands behave like a SET (q.v.) except that they access 
the error table corresponding to the state name rather than the state name itself 

MERROR SV1 = 1.0E-3, SV2 = 0.01 

XERROR SA1 = 5*0.0001, SA2(3) = 0.02 

where the SVi and SAi are state variables and state arrays respectively. Note that arrays may be filled by 
a repeat count: An individual array element may be specified - at model definition time the same allowable 
error must be specified for all elements in an array. 

During the integration step, the estimated error for each state variable is compared to the allowable error 
Ej obtained from 

E { = max (Xj, MilY^) 

where (Yj) max is the maximum of the absolute value of the state achieved so far during the run. 

5.8 OUTPUT 

The output from the model can be obtained by the command 

OUTPUT T, A, B, C(5), D 

The command designates the list elements as data whose values are to be listed as the simulation model 
advances in time. This action occurs following a subsequent START (q.v.) command. Subcommands are 
available and when used must be quoted so 

'NCIOUT', 'CLEAR' 

The values of the list elements will normally be written out every communication interval. If this rate 
is too high, a reduction can be effected by including the subcommand 'NCIOUT' - number of communication 
intervals between output, i.e. 

OUTPUT T, A, B, 'NCIOUT' = 5 

Only one value for 'NCIOUT' can be in effect at one time - the last value set stays in effect until changed 
in a subsequent OUTPUT command. The starting value of 'NCIOUT' is one. It isn't possible to designate 
different list element blocks to be recorded at varying data rates - all elements on the OUTPUT list are given 
together. 

Array elements can be listed by referring to the specific element (A(3)say). If the name given is an array 
but no specific element is called for, all elements will be listed. 

OUTPUTs are cumulative. To clear the list and start afresh, use the 'CLEAR' subcommand. 

OUTPUT 'CLEAR', BILL, JOE, SAM 

Output is considered to be low volume and will be written to both the DIS and PRN files if different. 
The width of the line is controlled by the system variable TCWPRN (terminal character width) which controls 
the line width of data being written on the DIS logical unit number. If TCWPRN is set to 72, output will 
be three variables across: If TCWPRN is 132, output will be five variables across. 

NOTE: The independent variable is not included on the OUTPUT list automatically - it must be 
deliberately mentioned if you want to see it. 
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5.9 PLOT 

Both printer and line plots can be made using values recorded for any of the variables on the PREPAR 
list. The actual form of the plots are controlled by system symbols (q.v.) PRNPLT (printer plots), CALPLT 
(line plots) and STRPLT (strip plots). Note the order of commands must be: 

PREPAR - establishes list to be saved (used once) 

START - runs the model, saves values on the PREPAR list 

PLOT - makes plots using the data saved during the run 

with any other commands in between the above sequence. It is illegal to change the PREPAR list and continue 
plotting data made with a previous START. It is the current PREPAR list that is used by the PLOT command 
to find the data for each variable on the intermediate scratch file. 

The basic form of the plot command is: 

PLOT Yl, Y2, Y3, . . . , YN 

which will plot the variables Yl, Y2, Y3, . . . , YN - picking as the X-axis the first variable on the PREPAR 
list. The form (printer plots, line plots or strip plots) will be determined (all, either or none) by the current 
settings of the system symbols PRNPLT, CALPLT and STRPLT. 

Sub-commands are available and when used must be in quotes so: 

'XAXIS', 'XHI', 'XLO', 'XLOG', 'XTAG', 'SAME', 'OVER', 

'ALL', 'HP, 'LO', 'CHAR', 'LOG', 'TAG' 

5.9.1 X-AXIS QUALIFIERS (XAXIS, XHI, XLO, XLOG, XTAG) 

The X-axis can be changed from the default to any variable on the PREPAR list as in: 

PLOT 'XAXIS'=X2, 'XLO'=5.0, 'XHI'=10.0, Yl, Y2 

In addition to specifying a new X-axis variable, X2, the scales are also given so that the X-axes will run from 
5.0 (low) to 10.0 (high). There is a reason for specifying the X-axis change first on the PLOT command line 
since the automatic scaling for the Y-axis variables is determined by picking maxima and minima within the 
current X-axis window when the Y-axis variable is reached, in a left to right scan. Other options relating to 
the X-axis variable are logarithmic scales, 'XLOG', and a character string or tag that can be appended to 
the right of the variable name - can be used to identify units for instance 

PLOT 'XAXIS'=W, 'XTAG'='(RAD/SEC)\ 'XLOG', 'XLO'=WMN, . . . 

GAIN, PHASE 

The respecification of the X-axis variable resets all parameters to their default values, which is why the other 
subcommands follow the X-axis definition in the left to right sequence. The default values are no tag string, 
linear scales and axis limits chosen by rounding the maximum and minimum values on the data file. When 
logarithmic scales are selected the minimum value must usually be specified if the default rounding is to zero. 
Zero or negative scale limits are not permitted with logarithmic scales and will produce a diagnostic message 
and a replacement with linear scales. 

X-axis related parameters, once set, remain that way for all subsequent PLOT commands unless 
respecified or the X-axis variable itself is changed. 

5.9.2 Y-AXIS QUALIFIERS (HI, LO, CHAR, LOG, TAG) 

Individual y-axes variables can have the scales set, the character selected, logarithmic scales specified 
and a tag string given. These subcommands all follow the y-axis variable name as qualifiers, applying to the 
variable name to the immediate left. As an example, consider: 
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PLOT Yl, 'LO'=0.0, 'HI'=10.0, Y2, Y3, 'LO'=5.0, . . . 

'HI'=5.0, 'CHAR'='T' 

Any variable not followed by given scale factors will have 'best' scales chosen automatically, i.e., Y2 in the 
above example. The automatic scaling is obtained by determining the maximum and minimum values of the 
variable while the x-axis variable is between its given limits 'XLO' and 'XHF. This operation ensures that 
the scales are chosen appropriately for the plot since it may be necessary to examine in detail a small fraction 
or window within the total simulation run. Other options include logarithmic scales 'LOG', and a character 
string or tag that can be appended next to the variable name i.e. 

PLOT Yl, 'LOG', TAG'='GAIN', 'LO'=0.001 

where the variable Yl will be plotted on logarithmic scales. The axis will be labelled with the name Yl 
concatenated with the string GAIN with a space in the middle. 

It is sometimes necessary to set a group of scales to the same, originally unknown, value. If maximum 
and minimum values can be collected in the model definition section (the DYNAMIC section for preference), 
then they can be used to set scale factors by using the symbol name instead of a constant i.e. 

PLOT Yl, 'LO'=YMIN, 'HI'=YMAX, etc. 

Remember, any symbol stands for the value of its contents where a data item is expected. 

When any array is plotted, the array name stands for all its elements and any qualifiers such as scale 
factors explicitly given apply to all elements of the array. For individual qualifiers each element of the array 
must be individually specified on the PLOT command list. 

5.9.3 SAME, OVER and ALL 

The 'SAME' and 'OVER' subcommands act on a string of Y-axis variables - all the variables to the left 
of the keyword. The command: 

PLOT Yl, Y2, Y3, 'SAME' 

will apply the scales selected for the first name in the list, Yl in this case, to the rest of the elements in the 
list, Y2 and Y3 as shown. Note this option doesn't pick the maximum of the maxima and the minimum of 
the minima. 

The key word 'OVER' is used to suppress the extraneous printing of the axes and is normally used in 
conjunction with 'SAME'. The command line: 

PLOT Yl, Y2, Y3, 'OVER' 

will draw and label the vertical axes for Yl, the first element in the list but will suppress the separate axes 
and labels (although the scales may be different) of Yl and Y2. The main use of this is comparison plots using 
the strip chart option (STRPLT = .T.) because otherwise all plots on the list are drawn on separate areas 
of the graph. 

All the variables on the PREPAR list can be plotted by a single command so: 

PLOT 'ALL' 

used normally for debug purposes. Plots are drawn nominally three to a page (see system symbol NPPPLT 
or number of plots per page). 

5.9.4 EXAMPLES OF PLOT COMMAND 

Some examples of PLOT commands are as follows: X, Y, Z and W are regular variables; A is a three 
element array. 



1 ) Normal plotting, x-axis operations specified first: 
PLOT 'XTAG'='(SEC)\ X, Y, Z, W 

2) Plot X and Y to the default scale of X, and Z and W to same given scale: 
PLOT X, Y, 'SAME', Z, 'LO'=0.0, 'HI'=5.0, W, 'SAME' 

3) Plot array A normally - all element scale factors are individually chosen: 
PLOT A 

4) Plot array A using default scales for A(l): 
PLOT A, 'SAME' 

5) Plot array A on given scales - the low and high apply to all elements of the preceding array 
PLOT A, 'HI'=50.0, 'LO'=-50.0 

or 
PLOT A, 'HI'=50.0, 'LO'=-50.0, 'SAME' 

6) Plot A(l) on the same scale as A(2) and add descriptive tag to A(3) 
PLOT A(2), A(l), 'SAME', A(3), TAG'='(FURLONGS)' 

7) Use logarithmic scales and tag descriptors: 
PLOT 'XAXIS'=W, 'XLOG', 'XLO'=0.01, . . . 

'XTAG'='(RAD/SEC)\ X, 'LOG', 'LO'=1.0E-4, . . . 
'TAG'='-GAIN' 

8) Plot X and Y to the same scale as X; Z and W to the same scale as Z: 
PLOT X, Y, 'SAME', Z, W, 'SAME' 

5.10 PREPAR 

The variables that are to be recorded on a scratch file during the run are listed so 

PREPAR T, A, B, C(2) 

The same comments on the arguments apply as to the OUTPUT command, with the exception that recording 
is every communication interval. 

The plot programs assume as a default that the X-axis variable is the first one on the PREPAR list. The 
PREPAR list is cumulative. Reset is by PREPAR 'CLEAR', T, JOE, ... 

5.11 PRINT 

All the variables on the PREPAR list can be listed in columnar form (10 columns to a page) once the 
run has been completed and the PREPAR file established. PRINT is similar to PLOT in that it can have a 
list of variables and/or subcommands. Subcommands are 

'ALL', 'NCIPRN' 

For example: 

PRINT 'NCIPRN' = 5, 'ALL' 

will print all the variables on the PREPAR list, listing values every five communicatioi intervals (NCIPRN 
= number of communication intervals for print). 

PRINT T, XI, X2, X3, X4 
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PRINT 'NCIPRN' = 2, T, Yl, Y2, Y3, Y4 

Successive print commands can be used to format the data. Five columns are normally used for listings 
to be reproduced directly on "A" size (eight-and-a-half by eleven) paper. Note that the independent variable 
has to be included on each list if needed - it doesn't get printed automatically. The 'NCIPRN' subcommand 
is optional - once used the argument becomes the default from then on. 

If array names are used, all array elements will be listed. An array element may be listed separately. 

PRINT T, ARRAYA, ARRAYB(3) 

The data is only listed on the PRN logical unit unless HVDPRN is true, so if this is set to 9, this high 
volume output will go onto the PRINT file for later disposal to the printer queue. 

5.12 PROCED 

Command sequences can become long and cumbersome when much plotting is performed. To save 
repeating the directions after each run a procedure can be defined. Do not confuse this with PROCEDURAL 
referenced during the translation phase. This command PROCED is invoked at execution time, i.e., 

PROCED GO $ START 

PLOT 'XAXIS' = X, Y, Z 

PLOT 'XAXIS' = T, N, M 

DISPLY RMISS 

END 

The sequence of commands START, PLOT — until END are saved but not executed. But now a command 
GO will execute the entire sequence, i.e., 

SET A = 5.0 $ GO 

SET A = 6.0 $ GO 

SET A = 7.0 $ GO 

which allows the value of the parameter A to be changed before executing the sequence of commands stored 
in the procedure 'GO'. Note that the names and values within the procedure are fixed and cannot be changed 
when the procedure is invoked. 

5.13 RANGE 

This command determines the maximum and minimum values of variables, that have been saved during 
a run by the PREPAR statement. Subcommands are available, and when used must be quoted 

'ALL', THI', TLO', TVAR' 

Standard form of the command is 

RANGE A, B, C(5) 

As usual, array names stand for all the elements in the array. Errors will be reported if any name on the 
RANGE list is not defined in the PREPAR list. 

Windows may be defined so that sub-ranges can be determined, by specifying both the independent 
variable to be used, 'IVAR', and the high 'IHI', and low, TLO', values to be used for the test. 

RANGE TVAR'=X, TLO'=50.0, THF= 100.0, 'ALL' 



5-10 



which would report the maximum and minimum values of all elements on the PREPAR list when the variable 
X lay between 50.0 and 100.0. Once set, the 'IVAR', 'ILO' and 'IHI' values remain that way for subsequent 
RANGE commands, if not changed. Initial values of 'ILO' and 'IHI' are - RMX and RMX respectively where 
RMX is the largest floating point number available on the machine. The independent variable 'IVAR' is set 
to be the first variable on the PREPAR list. 

5.14 REINIT 

Reinitialize takes the current value of the state variables and writes them back to the initial condition 
table, thereby destroying the original numbers on the table. REINIT can be used when a midcourse guidance 
system flies out and is stopped before the terminal phase. It now establishes this current point as the starting 
point for subsequent runs. 

Refer to SAVE and RESTOR for details on how to recover back to an original condition. 

5.15 RESTOR 

Restores the user's data area written on a named file. The file must have been established by a previous 
SAVE command 

RESTOR 'fn' 

where fn is a valid file name - see SAVE command. 

5.16 SAVE 

The entire contents of the user's data block may be saved on an external file to be subsequently 
RESTORed and so override any intermediate changes. ACSL system constants (TITLE, PRNPLT, 
XINCPL, etc. are not saved. Standard form is 

SAVE 'fn' 

where fn is any valid file name - starts with a letter and six characters or less. Do not use INPUT, OUTPUT, 
RRR or PRINT. Any number of SAVE commands may be issued on the same or different files. If it is the 
same file, the previous information is overwritten and destroyed. 

5.17 SET: Short Form S 

Data can be set into any known constant array or variable by this command. If the model definition is 
going to calculate a new value of a variable, after START, then it does not usually make much sense to change 
it. The command would normally be used for changing the values of constants. Once changed, they stay that 
way until changed again. 

Legal forms of the SET commands are 

SET NSTP = 10, RANGE = 5.6E3, MAS = 4.6, GAIN = 5 

SET LOGVAR = .TRUE., ARRAY(5) = 4.3, SWITCH = .T. 

SET ARRAY(2) = 2.0, 3.0, 4.0, TSTOP = 4.6 . . . 

, TITLE = 'DOPPLER STUDY', ARRAY(6) = 5*0.0 

The data form must agree with the type of the symbol with the exception that integers may be set into 
real variables and automatic floating will take place: Integer variables must not have a decimal point and 
logical variables can only be .TRUE, or .FALSE. (.T. and .F. are Short Forms). Arrays can be set by 
individual elements or a data list can follow when succeeding data items will be stored in subsequent array 
slots. Attempting to exceed the array length will result in an error. Data can also be obtained from another 
symbolic location by using the symbol name, i.e., 
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SET RMI = RANGE, RMT = RANGE 

when after execution the variables RMI and RMT will both contain the value of the number stored in the 
symbol RANGE. This concept is useful if a data item has to be stored in many places. It can be stored by 
value once and then picked up by name subsequently, thus value changes need only be made in one place. 

Hollerith data can be set into a symbol or array that is of type integer. Normally only the system array 
TITLE would be so used. 

5.18 SPARE 

A spare command is provided that will link to a user provided subroutine SPARE. A default version of 
this subroutine is available that will list the central processor time, i.e., 

SPARE 

ACCUMULATED CP TIME nnn.nnn SEC. ELAPSED CP TIME nnn.nnn SEC. 

The accumulated time is normally the time from the beginning of the job: The elapsed time is the incremental 
time from the previous invocation of the command. The sequence 

SPARE$START$SPARE 

can be used for timing simulation execution. 

5.19 START 

Command to allow the model definition to integrate over the state trajectory. Control is released to the 
model definition program and provision must be made to terminate execution at some time. 

5.20 STOP 

Tells the run-time executive that no more commands follow. A termination record is written on the line 
plot file, if any plots have been made. 

This command should always be the last command issued so that all the files established by the executive 
are cleaned up or terminated correctly. It may be necessary to precede STOP with a blank for those operating 
systems that interpret STOP as an abort. 

5.21 XERROR 

Absolute error specification - see MERROR. 
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6. MACRO LANGUAGE 

The macro capability of ACSL allows the user to expand the language capability by defining new 
operators as the need arises. 

A macro may be used in one of two essentially distinct ways. The first is akin to a subroutine or function 
which is defined once and then called from many places. The macro is defined once and then invoked. Actual 
statements are produced for each macro invocation, but the extra amount of storage used for such instructions 
is always small. The only way to define operators involving integrators and memory functions is by using this 
macro operator.* 

The second approach is to define blocks and write all the equations in terms of standard nomenclature. 
These blocks can become part of a system library and with all the variables relabeled, no conflict will appear 
between the standard block and another user's invocation of it. For instance, a standard actuator system could 
be defined with input, the commanded deflection; output, the actual deflection. Invocation would then be: 

ACTUAT(DLC, DL) 

which would tell the processor to reproduce the code to represent the actuator but use the name DLC for 
command deflection; DL for the actual deflection. 

Some of the more important features of the macro language are: 

1) Variables and statement labels may be locally generated. In the event the macro is called more than 
once, this will prevent multiply defined variables or doubly defined statement labels. 

2) An unlimited number of macro input arguments may be used. These arguments must be valid 
expressions with balanced parentheses - of arbitrary complexity - or else any character string enclosed 
in quotation marks. 

3) Macro definitions may invoke, other macros (nesting) to an unlimited level of complexity. Note, 
however, that macro definitions may not be nested. This needs a count of nesting level within the 
definition to match up with the correct MACRO END. This count is not performed. The first 
MACRO END terminates the definition. 

4) Macro's may be placed anywhere within an ACSL program: They must be defined, however, before 
they are used. Any current macro may be redefined and the most recently defined macro will be used 
in the expansion. 

5) The concatenation operator (>) allows arguments to be placed together without intervening spaces 
so making up symbols. 

Argument strings are substituted for each appearance of the macro argument name. If the argument 
is an expression, care must be taken that the resulting code is correct after the substitution (see Section 6.5). 
Other names that may be substituted during macro expansion are the ASSIGNed variable (see Section 6.3.1), 
local variable names identified by a REDEFINE (see Section 6.3.12) and local labels identified by a 
RELABEL (see Section 6.3.13). 

6.1 MACRO DEFINITIONS 

The macro definition is a block of code which consists of the following: 
1) Macro definition header 



* 



For two examples of this type of macro use, see the example program, PHYSBE; Section 8 of 
Appendix A. 
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2) Macro directive or ACSL statements 

3) MACRO END 

The macro definition header specifies the name of the current definition and a list of dummy reference 
parameters, analogous to dummy arguments in a FORTRAN subroutine. The translator scans the statements 
in the macro body for the appearance of these names, flagging them for substitution by the actual argument 
supplied on invocation. The definition terminator, MACRO END, must be present to flag the translator to 
return to direct translation instead of saving the macro skeleton (the macro body with the substitutable 
arguments flagged is known as the skeleton). 

If a macro name is the same as one already defined, either in the system macro file or the current model 
definition, the new macro definition replaces the old one. No error message is issued since this is considered 
to be a feature whereby the user can always override an old macro definition. 

6.2 MACRO DEFINITION HEADER 

Two types of macro can be defined but for the most purposes - excluding arrays - the first one is to be 
preferred. This is of the form: 

MACRO identifier (x l5 x 2 , x 3 . . . , x n ) 

where identifier will be the macro name (6 characters or less) 

Xj are variable names - not constants or expressions. 

Anywhere the symbol Xj is referred to in the macro definition it will be replaced by the ith argument - symbol 
or expression - when the macro is invoked. Example: 

MACRO MULT(X, Y, Z) $ 'DEFINITION' 

X = Y*Z 

MACRO END 

C = A*MULT(5.0*B, D) $ 'INVOCATION' 

The output of the function is considered the first argument X; Y will be replaced by 5*B and Z by D 
everywhere throughout the definition. 

A second type of definition is useful when handling arrays. This form has an extra macro so 

MACRO MACRO identifier (p, q, r, s) 

where identifier is as defined previously, p is the primary argument (any symbol) and q, r, s are secondary 
arguments, optional symbols, 'p' is the dummy reference parameter and may be thought of as being an array, 
each element of which identifies the respective elements in the argument list at invocation time, i.e., 

MACRO MACRO HEAD(P, Q) $ 'DEFINITION' 

MACRO END 

ARRAY B(5) 

HEAD (A, B = 5*D, E + F, LOW) $ 'INVOCATION' 

Now P(l) appearing in the definition body will be substituted by the symbol A, the first argument, at 
invocation time. P(4) will be replaced by the expression E + F, the fourth argument.* The secondary 
arguments allow access to the dimension of any argument from a previous ARRAY statement. The ARRAY 
statement must come before the macro invocation. 

* Arguments at invocation time are delimited by commas or an equals sign. 
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Any reference to Q for an array will access the first dimension. In the example above, Q(2) will have 
the value 5 from the dimension in the previous ARRAY statement. Q(3) and Q(4) will be illegal since these 
arguments are expressions that cannot have a dimension. 

Symbols substituted for the secondary arguments R and S act similarly to Q except they provide the 
second and third dimensions respectively. 

NOTE: Macros written in this second form are extremely hard to read since no mnemonic 
symbols can be used for the arguments. 

The array expressions are restricted to the following forms. 

1) P(i) - i is an integer constant 

2) P(n) - n is the ASSIGNed variable (q.v.) 

3) P(n ± i) - combination of the above. 

In general, the substitutable symbols must be separated from other character strings by nonalphanumeric 
characters, i.e., *, +, -, 'blank' in order for the scan to operate. If the above macro MULT contained the 
statement 

ASSIGNZ TO K 

The symbol Z would not be identified for substitution. Here, the space is all important so 

ASSIGN Z TO K works well. 

In order to allow the substitutable argument to appear next to a character string the concatenation operator 
is defined. This operator is a right arrow (■>•) on CDC systems or underline (_) on ASCII based machines, 
which serves as a separator for symbol identification, but is removed entirely from the skeleton. As an example, 
suppose we wish to make up unique symbols by adding an F to the third argument of the MULT macro and 
including it in an expression.* The new name would be written F*Z (F concatenated with Z), i.e., the 
statement 

X = Y*F>2 
could be included in the macro definition. Invoking the MULT macro with 

A = MULT(SAM, JOE) 
would result in the statement 

A = SAM*FJOE 

where the new symbol FJOE has been defined. 

The above call MULT will enter a symbol JOE on the symbol table. If only the made up symbols are 
important, the argument may be quoted as 

A = MULT(SAM, 'JOE') 

where the same expression will be generated but now the symbol JOE will not be entered in the symbol table. 
The argument in quotes has the quote characters removed and the literal string of characters enclosed - 
including blanks - is substituted for the appropriate argument symbol. 

6.3 MACRO DIRECTIVE STATEMENTS 

The following section lists in alphabetical order the macro directive statements that may be included 
within a macro definition. No code will result from these statements, but extremely flexible control is possible, 
of the manner in which the macro is processed at invocation time. The ACSL statements themselves produce 

* See PHYSBE example program in Section 8 of Appendix A. 
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code, and symbols in the statements will be substituted for the appropriate argument at invocation time. All 
these directive statements have MACRO in front to indicate an instruction to the macro processor. See 
Subsection 6.4 for some examples of the use of a macro. 

All directive statements can have labels attached to them which can be used by the MACRO GO TO 
and MACRO IF directives. These labels must be distinct from any labels attached to non-directive statements. 
The label is inserted between the leading MACRO of the directive, i.e., 

MACRO SI . . RELABEL I 

MACRO S2 . . CONTINUE 

MACRO S3 . . END 

Note, these labels control the sequence of the macro processor at macro invocation time. The labels on 
nondirective statements control the sequence at run-time execution. 

6.3.1 MACRO ASSIGN 

The ASSIGN macro directive statement has the standard form 

MACRO ASSIGN n 

where n is a symbol (usually N is used). The ASSIGN directive assigns the number of arguments in the macro 
call to the variable N; the value of N will always be an integer. If the dummy reference parameter contains 
a variable subscript, the variable must be the same as the variable used in the ASSIGN statement. Whenever 
N is used as part of the dummy reference parameter subscript, the current value of N will refer to the Nth 
argument in the macro call list at invocation time. Example: 

Second header type 

MACRO MACRO SAM(P) $ 'DEFINITION' 

MACRO ASSIGN N 

MACRO END 

SAM(X, Y, Z) $ 'INVOCATION' 

Within the macro definition 

P(N) is the Nth argument 'Z' 

P(l) (N) is X(3) 

P(N - 1) (N) is the Nth element of the (N - 1) argument, Y(3) 

6.3.2 ARITHMETIC MACRO DIRECTIVES 

The arithmetic macro directives have the form 

MACRO INCREMENT i 

MACRO DECREMENT i 

MACRO MULTIPLY i 

MACRO DIVIDE i 

where i is an unsigned integer constant, the secondary arguments: p, q, r, s; or a macro argument name that 
has a literal numeric integer value. 

These directives provide arithmetic operations on the ASSIGNED variable N. The value of N may be 
added to, subtracted from, multiplied or divided; all arithmetic operations are performed in fixed point integer. 
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Example: 

MULTIPLY 

will make the ASSIGNED variable zero 

To make the assigned variable equal the dimension of the second argument, the following code can be 
used. 

MACRO MACRO BIL(P, Q) 

MACRO ASSIGN N 

MACRO MULTIPLY 

MACRO SI . . IF(N = Q(2)) S2 

MACRO INCREMENT 1 

MACRO GO TO SI 

MACRO S2 . . CONTINUE 

On exit from this section, N, the assigned variable, will have the integer value Q(2) or the dimension 
of the second argument. In this way N can be used as a counter or control variable irrespective of its basic 
purpose of transmitting the actual number of arguments used at invocation time. 

6.3.3 MACRO CONTINUE 

The CONTINUE macro directive has the standard form 

MACRO CONTINUE 
It is a do-nothing and invariably is included so that it can be labelled as so 

MACRO LI . . CONTINUE 
In this form the MACRO IF or MACRO GO TO can branch to this section within the definition. 

6.3.4 MACRO DECREMENT 

See arithmetic macro directives. 

6.3.5 MACRO DIVIDE 

See arithmetic macro directives. 

6.3.6 MACRO EXIT 

The EXIT directive statement has the form 

MACRO EXIT 

It stops the generation of code at invocation time. The action is the same as a MACRO GO TO to the macro 
definition terminator. 

6.3.7 MACRO GO TO 

The GO TO macro directive statement is written in the form 

MACRO GO TO s 

where s is a statement label attached to ANOTHER MACRO DIRECTIVE. The GO TO provides an 
unconditional branch to another section within the definition. 
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6.3.8 MACRO IF 

The IF macro directive statement is of the form 

MACRO IF (ej = e 2 ) s 

where &i and e 2 can be the dummy reference parameters corresponding to the call list, integer constants, 
character strings or the identifier used in the ASSIGN directive. They must not be expressions; s is a macro 
directive statement label. This directive provides for a conditional branch to the macro directive label s inside 
the current definition if the relation e x = e 2 holds. The strings e x and e 2 are tested character by character 
excluding blanks for equality. 

In order to compare a character string with a string passed as a macro argument, the string must be 
enclosed in quotes when the macro is invoked and then the MACRO IF compares the argument with an 
un-quoted string i.e., if the definition is as follows: 

MACRO TEST (ARG) 

MACRO IF (ARG = TOP) LABI 

MACRO LABI . . CONTINUE 
MACRO END 

and the invocation is 

TEST (TOP) 
then the macro will expand via LABI. 

6.3.9 MACRO INCREMENT 

See arithmetic macro directives. 

6.3.10 MACRO MULTIPLY 

See arithmetic macro directives. 

6.3.11 MACRO PRINT 

Error messages may be handled within the macro at invocation time by this PRINT directive statement. 
It has the form 

MACRO PRINT any character string except a dollar sign ($) 

This directive lists the character string on the output device. It will override any global list control. The 
primary use is for the user to diagnose his own errors at invocation time and output informative messages. 
See the examples in Subsection 6.4. 

6.3.12 MACRO REDEFINE 

The REDEFINE macro directive statement has the form 

MACRO REDEFINE Vl , v 2 , . . . , v n 

where Vj are variable names appearing in the body of the macro. REDEFINE identifies the variables as being 
locally defined and specifies that they are to be replaced by unique symbols at each invocation. The generated 
variables consist of the letter Z followed by five digits. 



6-6 



6.3.13 MACRO RELABEL 

The RELABEL macro directive has the form 

MACRO RELABEL l b 1 2 , . . . , l n 

where lj is an alphanumeric label (i>l). RELABEL specifies that all symbols in the list are locally defined 
statement labels which are to be substituted for by unique generated numbers at invocation time. These labels 
must only be attached to ACSL statements - not macro directive statements (statements preceded with 
MACRO). 

6.3.14 MACRO STANDVAL 

The STANDVAL macro directive statement has the standard form 

MACRO STANDVAL argi = c h arg 2 = c 2 . . . 

where argj are the dummy argument names and the q are literal constants that can be real (1.5), integer (5) 
or logical (.TRUE.). The alternate MACRO invocation can also be used with STANDVAL which has the 
form as follows: 

MACRO STANDVAL P(i) = c b P(j) = e j? . . . 

where i is an unsigned integer constant and the ej are constants. The statement is used to provide standard 
values for arguments of a macro. If the i-th argument is not given, then the constant (e^) is used in its place. 
If an argument is to take its standard value, then its position in the argument list must be left empty, i.e., the 
delimiting commas must be present, and the absence of an argument indicated by a null string (** "). 
Arguments may be simply omitted at the end of the argument list without the need for commas and a null 
string to indicate their absence. The STANDVAL directive must immediately follow the macro header in the 
definition if it is used at all. 

6.4 MACRO EXAMPLES 

The examples will be given of the use of macro calls that demonstrate some of the uses of the directive 
statements and of direct parameter substitution. 

6.4.1 Sampler 

A sampler can be built up of a switch and two zero order holds but for convenience, the entire sequence 
can be embedded in a macro and invoked as a function. We would like to say at invocation time 

Y = SAMPLE (YIC, DL, T, X) 

where YIC will be the initial value of Y, the sample will be repeated every DL of the independent variable, 
T. X is the variable to be sampled. Define this macro by 

MACRO SAMPLE (SAMP, DL, T, X, IC) 

MACRO STANDVAL IC = 0.0 $ LOGICAL SNSW 

MACRO REDEFINE TS, SNSW 

TS = ZHOLD (0.0, SNSW, TS + DL) 

SNSW = T.GE.TS 

SAMP = ZHOLD (IC, SNSW, X) 

MACRO END 

Note, the output name has to be included in the argument list. The sample time TS is sampled from the 
function TS + DL, but only when T equals or exceeds TS, setting SNSW nonzero (1.0) SAMP is snapped 
by the zero order hold from the input argument X. 
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6.4.2 DOT Product 

To take the vector DOT product of two arrays A and B, we would like to be able to use the functional 
form 

X = DOT(A, B) 

where X is a scalar and A and B are vectors, previously dimensioned in an ARRAY statement. Since it is 
a function (has one output) the operator can be embedded in an arithmetic expression of arbitrary complexity. 
We do not want to have to mention the dimension of the vectors in the call since that is likely to change. 

To pick up the array dimension we need to use the second form of the macro header. This header 
designates P as the primary variable and Q as the secondary variable, that will access the dimension of the 
corresponding primary argument. (Figure 6-1 gives macro listings.) The REDEFINE statement ensures the 
variable I will not conflict with any other use. If this were omitted, a program variable I could have its value 
changed when the macro is executed; a potentially disastrous effect. The test needed is to see if the second 
and third arguments have the same dimension; if not, the DOT product is undefined and a macro error 
message is printed. If the dimensions are correct the DO loop summation is formed. Note, Q(2) and Q(3) will 
be replaced at invocation time by integers corresponding to the array size of the respective arguments: The 
MACRO IF must branch to another macro directive statement, hence, the label on the MACRO CONTIN- 
UE. This label could not have been attached to the following statement since this is not a macro directive 
statement. 

At invocation time, with the call shown, this will be translated into 

INTEGER Z09999 

X = 0.0 

DO 99999 Z09999 = 1, 10 

99999 . . X = X + Y (Z0999)*Z(Z09999) 

where the variable I will have been changed into a unique generated variable Z09999. If embedded functional- 
ly in an expression, this code will precede the expression evaluation and a Z variable will be used in the 
expression. 

6.4.3 Concatenation Example: A Pressure Tank 

One of the problems with using MACRO is the tendency to generate large numbers of dummy variables 
(ZOnnnn) which have no physical significance. All REDEFINED variables have this form. An alternate 
approach is to use the concatenation feature to build unique symbols that are available for plotting or printing. 
This technique can also reduce considerably the length of the argument list which is the other alternative when 
unique symbolic names are required. 

As an example consider a macro to define a gas holding tank which is similar to the PHYSBE example 
in Appendix A. We will calculate the flow in as the difference in pressure divided by a resistance. Total 
pressure will be the integrated net flow divided by a volume. The macro definition now looks like 

MACRO TANK(N) 

F_N_I = (P_N_I - P_N)/R_N J 

P_N = (INTEG ((F_N_I - F_N_0)/V_N, E_N_IC) 

MACRO END 

The basic equations for different vessels can now be established by the statements 

TANK(l) 
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'MACRO DEFINITION' 

MACRO MACRO DOT(P,Q) 

MACRO RELABEL L2 $ MACRO REDEFINE I 

MACRO IF(Q(2)=Q(3))L1 

MACRO PRINT CONFLICTING DIMENSIONS IN DOT PRODUCT 

MACRO MACRO EXIT 

MACRO LI. .CONTINUE 

P(l) = 0.0 

DO L2 I = 1, Q(2) 
L2..P(1) = P(l) + P(2)(I)*P(3)(I) 
MACRO END 

ARRAY Y(10), Z(10) 

'MACRO INVOCATION' 
DOT(X = Y,Z) 



Figure 6-1 . DOT Product Macro Forms X = \ YjZj 

i = 1 

TANK(3) 

and the rest of the model must specify constants as interconnections. The first invocation TANK(l) will 
generate 

F1I = (P1I-P1)/R1I 

PI = INTEG ((F1I - F10)/V1, P1IC) 

Constants must be defined elsewhere for the resistance R1I, the volume VI and initial pressure P1IC. 
Variables that must be defined elsewhere are the input pressure node PI I and the output flow F10. This macro 
will then make available to other sections of the simulation the input flow F1I and tank pressure PI. 

The alternative form of the macro invocation without the concatenation feature would have to be 

TANK (F1I, PI = P1I, R1I, F10, VI, P1IC) 
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with similar statements for all the other vessels. There is a trade off in deciding how to define the macro which 
can be considered as follows: Without the concatenation feature, argument lists become long and complicated 
but there is flexibility in naming and arguments can be expressions. Using the concatenation feature, the 
argument list is simple - one argument, usually a constant, but can be mixed. The TANK macro could have 
the output flow and downstream pressure specified in the argument list since these are likely to be expressions 
i.e. 

MACRO TANK (N, PI, FO) 

F_N_I = (PI - P_N)/R_N_I 

P_N = INTEG ((FJSLI - (FO))/V_N, P_N_IC) 

MACRO END 

and in invocation of 

TANK (1, PSOURCE, (PI - P5)/R5I) 

which substitutes PSOURCE for inlet pressure PI and the expression for the outlet flow FO. The disadvantage 
of the concatenation approach is the inflexibility in naming convention and also the fact that any resulting 
symbol must be six characters or less. If three digits are used for the number N, then all concatenated symbols 
must have no more than three other characters. In practical problems one usually only has to allow for one 
digit to identify a component or at most two. 

6.5 MACRO CALLS 

Once a macro has been defined it must be invoked with specific arguments listed for substitution. The 
first form of call is to embed the macro name in an arithmetic expression. For this form only one output (a 
single number) should be produced by the macro - this has functional form 

X = 5.0*SIN(DOT(A, B)/4.0) 

where the DOT product macro is embedded in the argument of the SIN function. A and B in this case 
correspond to the second and third argument of the macro respectively. The output is the first argument. 

Alternative form of the call is as a stand alone statement - 

DOT(X = A, B) 

or its exact equivalent 

DOT(X, A, B) 

The equals (=) sign in the first form is to indicate to the reader that X is an output. The program 
determines what are the actual inputs and outputs as it processes the statements produced by the macro, i.e., 
no error would result if the operator were invoked so 

DOT(X, A = B) 

but it would be a little misleading. Note especially that 

X = DOT(A, B) 

is an assignment statement and the name X will not be substituted for the first argument. Only a single 
numerical value can be passed across the equals sign of an assignment statement. 

On the other hand, consider a matrix integration operator we might write: 

MATINT(X, XD = A, XIC) 

In this set up two entire vectors are the output of the operator and have their values effectively passed across 
the equals sign. 
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The substitution of macro arguments is by replacement of the character string forming the argument 
with the substitutable name. Where expressions are used, the wrong answer can be obtained if parentheses 
are not placed around the argument; i.e., consider a macro to integrate a difference in flow rate so 

MACRO ACCUM(TOT, Wl, W2, IC) 

TOT = INTEG (Wl - W2, IC) 

MACRO END 
At invocation time we use an expression for net flow out so 

ACCUM(MASS = WIN, WP1 + WP2, MASSIC) 
which would give the line of code 

MASS = INTEG(WIN - WP1 + WP2, MASSIC) 

which isn't really what we wanted, since the second flow WP2 has a plus sign in front of it. The answer is 
to surround the substitutable name - where operator precedence can cause a problem - with parentheses. The 
macro above should have been defined by 

MACRO ACCUM(TOT, Wl, W2, IC) 

TOT = INTEG(W1 - (W2), IC) 

MACRO END 

and now at substitution the executed statement is 

MASS = INTEG(WIN - (WP1 + WP2), MASSIC) 

It's not necessary to parenthesise the first parameter Wl, since any expression substitution will give the correct 
answer. Trouble usually arises when arguments are negated, multiplied or divided by other variables or used 
as a divisor in the macro definition. 
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7. PROGRAM DEBUGGING 

One of the more important features of the ACSL language is the availability of tools that assist in 
pinpointing errors. The first thing is to establish a frame of mind that believes in the existence of errors. It 
is difficult, in general, for the average user who writes a model definition to believe that there are any errors. 
However, if somebody else wrote it, you know there would be something wrong. You must accept the fact that 
all programs have at least one error and part of the joy of coming up with a finished product will be in finding 
it. 

As you write the program, prepare the first run for debugging. Set the stop condition (TERMT) for the 
first run to a small value (typically one communication interval will suffice) so that no time will be wasted 
calculating the incorrect values. Use the 4 D' option (despite any errors)* in the translator so that the program 
will proceed to uncover as many errors as possible. 

The first run through the translator will produce syntax error indications and probably error messages 
as well. The latter are listed in Appendix E with some further explanation. The translator analyzes each 
statement in turn and if an error occurs it will indicate this. The way the error is indicated is to write out again 
the statement in error, including any continuations, with a line of asterisks (*) underneath to indicate the 
acceptable section. The asterisk should stop just below where the error is located. 

Example: 

X = Y + (SIN(Y.Y)) 

***SYNTAX ERROR***THE LINE IS LISTED WITH A POINTER TO THE ERROR 

X = Y + (SIN(Y.Y)) 

which shows that the period (.) separating the two Y's is not allowed. It should be an asterisk (*) to indicate 
a multiply. Two points should be noted when these errors are indicated. The first is that only the first error 
in the statement will be indicated. If this error is corrected, it may need a second (or third) run to uncover 
other problems further into the statement. When you make a correction, take a long hard look at the rest of 
the statement. 

The second is that the line listed may not look like the input text if continuation cards are used. The error 
listing gives the complete string to be analyzed after the trailing blanks have been squeezed from the end of 
any cards continued. 

Next check for misspelling - variables you may have intended to be the same get keypunched wrongly. 
Names you intended to change get overlooked. To check these, /o^atjthejymbol cross-reference tables listed 
ayh^ndLoLtheJran^ Any yariaMes Hsted Mder 'VARIABLES NOT SPECIFIED IN ANY 

BLOCK' will be misspellings, constants you forgot jtp,.spwify^..or.-.correct^variables,,that. had their name 
misspelled at the statement defining them. They should have been defined. 

Next, take note of any unsatisfied external references from the load map. These will usually correspond 
to arrays you forgot to declare in an ARRAY statement - without this they look just like functions. 

The first run-time command should set up a debug action and usually over the first five or ten derivative 
evaluations will suffice. Include the following card at run-time: 

SET NDBUG = 10 

Alternatively an action can be scheduled that will ensure a debug printout after every START until CLEARed 



* See addendum for a description of the local control card sequence and options. 
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ACTION 'VAR' = 0.0, 'VAL' = 10, 'LOC = NDBUG 

NOTE: While the system variable NDBUG is greater than zero the complete set of user varia- 
bles is printed out and the value of NDBUG is reduced by one. 

This output is probably the most important data to help in debugging; the previous set of tools was merely 
to ensure you had the mechanics correct - commas in the right place, spellings consistent, etc. This debug 
output gives you the actual numbers calculated for every one of the state derivatives and intermediate 
variables. Look at the numbers carefully and check for reasonableness using your knowledge of the system 
you are trying to model. It is a good idea to start with initial conditions nonzero. If there are too many zero 
values, the arithmetic calculations can conceal errors. For preference, pick conditions so the derivatives all 
have a nonzero value which can be checked. Check the values that are listed for the constants. Any that have 
been preset in a CONSTANT statement_andjwj 2ex,e the decimal point has been left off will be list ed as havi ng 
a value of 0.0. This problem is a very common error. Somean-aTsm this printout if they"- 

happen to be longer than the integer contained in the system variable MALPRN (maximum array limit for 
print out). See system variable summary for the default value. 

Now the time comes to try the first full run. Plan what significant output variables will enable you to 
deduce correct model operation. Specify these in an OUTPUT command; increase the termination time and 
START. 

It is at this point that the modeller's skill comes in, in order to rationalize the behavior of the simulation 
in terms of how the real word system is expected to behave. About the only help that can be offered is that 
once questionable areas have been uncovered, schedule debug printouts to cover the area of interest so that 
as much information is recorded as possible. Note that the debug output occurs every derivative evaluation. 
For Runge-Kutta fourth order integration four derivative evaluations are made for a time step (calculation 
interval), one at the beginning, two in the middle, and one at the end. Looking at the independent variable 
it will appear to advance in half-steps, with two derivative evaluations taking place each step. An extra 
evaluation will take place prior to each communication interval or trip through the DYNAMIC section. 

7.1 MEANING OF DEBUG PRINT OUT 

The debug output is generated by going through the user dictionary which points to all variables in the 
user common block, listing the values of each one by one. The first fifteen variables are ACSL control variables 
that are defined as follows (see Figure A4-7 for an example): 

a) T - Real; Independent variable. May have been renamed in a VARIABLE statement 

b) ZZTICG - Real; Initial condition on the independent variable 

c) CINT - Real; Current communication interval. May have been renamed by CINTERVAL 

d) ZZIERR - Logical; Variable step error flag; May have been renamed by ERRTAG 

e) ZZNBLK - Integer; Number of DERIVATIVE and DISCRETE blocks in use 

f) ZZI - Integer; Distinguishes pre-initial (=0), START (=1) and CONTIN (=2) 

g) ZZST - Logical; Stop flag set by TERMT operator 

h) ZZFRFL - Logical; First flag set true at first derivative evaluation of every step 

i) ZZICFL - Logical; Initial condition flag set true at first derivative evaluation of every run - 
immediately after initial conditions have been transferred to states 

j) ZZRNFL - Logical; Reinitialize flag set true by REINIT. Used during initialization 
(ZZICFL = .TRUE.) and then turned false 

k) ZZNS - Integer array of length number of DERIVATIVE blocks giving number of state 
variables in each block 
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1) MINT - Real array of length number of DERIVATIVE blocks giving minimum integration 
step size for each block. Name may be changed by global MINTERVAL statement 

m) MAXT - Real array of length number of DERIVATIVE blocks giving maximum integration 
step size for each block. Name may be changed by global MAXTERVAL statement 

n) NSTP - Integer array of length number of DERIVATIVE blocks giving communication 
interval divisor for each block. Name may be changed by global NSTEPS statement 

o) IALG - Integer array of length number of DERIVATIVE blocks giving integration algorithm 
number to be used for each block. Name may be changed by global ALGORITHM statement 

Next in the debug print out comes the list of state variables in DERIVATIVE block order and in alphabetical 
order within each block, with their corresponding derivatives and initial conditions on the same line. If line 
width (see TCWPRN and HVDPRN) is sufficient (126) the corresponding values of absolute error (XERR) 
and relative error (MERR) are also listed on the same line. In general the derivatives will all be dummy 
variables (ZOnnnn form) except for those defined by the INTVC integration operator. 

After the states come all the algebraic variables in alphabetical order. Any EQUIVALENCED variables 
are listed at the end. System variable ZZSEED contains the random number seed variable which will change 
(depends on machine type) with every call for a new random number. ZZTLXP is a logical variable present 
in some machine versions to request the reprieve/interrupt capability. If it is set false before the first START, 
normal system dumps can be obtained if desired. 
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8. APPLICATION NOTES 

A number of techniques used in simulation models and run control are included in this section. 

8.1 PARAMETER SWEEP 

It is possible to define a run which consists of a sequence of runs in which a parameter (P) is varied from 
a low limit (PMN) to a high limit (PMX) by a certain increment between runs (PDL). This can be 
programmed using the explicit mode and then plots can be made showing a sequence of curves with the 
parametric variation. 

Example: 

PROGRAM SWEEP 

INITIAL 

P = PMN 

LI . . CONTINUE 
END $' OF INITIAL' 
DYNAMIC 
DERIVATIVE 

) MODEL DEFINITION 
J . . . DEPENDS ON P 
END $' OF DERIVATIVE' 

TERMT (T.GE.TSTOP) 
END $' OF DYNAMIC 
TERMINAL 

CALL LOG 

P = P + PDL 

IF (P. LE. PMX) GO TO LI 
END $' OF TERMINAL' 
END $' OF PROGRAM' 
The run-time control cards will be 



PREPAR T, list - - 

SET FTSPLT = .TRUE. 

START 

PLOT Yl, Y2, etc. 

Ensure the independent variable is the first variable on the PREPAR list and then set FTSPLT (fly back trace 
suppression on plots) .TRUE.. This signals the plot program to lift the pen when the variable recorded on 
channel one of the PREPAR list is less than its previous value. At the same time, the symbol character is 



bumped. Printer plots, of course, do not need to lift the pen, but the character change means it is a lot easier 
to pick out the curves for separate runs. Remember each entry from the INITIAL section into the DYNAMIC 
section will reset the independent variable to its initial value. Single runs can be easily generated, either by 
setting the maximum value (PMX) to the minimum value 

SET PMX = PMN 

or by making the increment very large 
SETPDL = 1.0E100 

8.2 PHASE AND GAIN PLOTS 

It is often required to determine phase and gain characteristics of a model that is being forced by a sine 
wave. With this system, the excitation frequency can be varied logarithmically and the phase and gain 
characteristics determined and plotted as a function of this frequency. First of all, let us establish a name W 
for frequency. This will be swept from minimum (WMN) to maximum (WMX) by using a geometric 
progression with multiplier KW (= 1.2 to 1.5). 

Example: 

PROGRAM PHASE AND GAIN 

INITIAL 

W = WMN 

LI . . CONTINUE 
END $' OF INITIAL' 
DYNAMIC 
DERIVATIVE 

j MODEL 
END $' OF DERIVATIVE' 

TERMT(. . .) 
END $' OF DYNAMIC 
TERMINAL 

PW = ALOGIO(W) 

CALL LOG 

W = W*KW 

IF (W.LE.WMX) GO TO LI 

END $' OF TERMINAL' 

END $' OF PROGRAM. 

The frequency will be varied geometrically and PW is calculated for the x-axis of the plot to be made - the 
actual scale will then be logarithmic. 

Now to find the phase and gain. Assume that we inject our signal into the equation for the variable F, 
and want to know the gain and phase between F and the output variable X, i.e., 

■f- = GGco) 



8-2 



The in-phase (P) and quadrature (Q) components will be given by 

T, 

X sin (WT) dt 
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TS 
where the integration is taken over any complete cycle. 

The trick is to start the integration after sufficient time has elapsed so that the initial transients have 
decayed away and then just integrate over a complete cycle. This can be done by logic within either the 
DYNAMIC or DERIVATIVE sections and it's usually easier to set the communication interval to force the 
full cycle integration. The phase of the window chosen is immaterial relative to the drive sine wave - it's only 
necessary to integrate over whole cycles. 

This sketched out technique requires a complete simulation run for each point i.e. the model code cycles 
from TERMINAL to INITIAL every time a new frequency point has been calculated. Another way of 
generating frequency response in a single run is described in section nine of Appendix A. While the implemen- 
tation described there is fairly complicated, it reduces somewhat the time spent for settling which is wasted 
CPU seconds and also allows more direct control of the phase accuracy calculated. 

8.3 SUMMARY OUTPUT 

It is often useful to obtain a complete list of all simulation variable values in order to document the state 
of the simulation. Setting NDBUG = 1 gives a picture at the very first derivative evaluation but we have found 
that this is not as useful as a picture obtained at the end of the run. In a final value debug dump, initial 
conditions are still available in the initial condition arrays but all other variables document the termination 
condition. 

In order to easily obtain this final value listing, incorporate the following code in the TERMINAL section 
i.e. 

TERMINAL 

LOGICAL DUMP $ CONSTANT DUMP = .TRUE. 

IF (DUMP) CALL DEBUG 

END $' OF TERMINAL' 

The call to subroutine DEBUG gives the picture but it's important to have it under the control of a logical 
variable that can be set at run-time in order to turn the output on or off. 

8.4 IMPULSE AND STEP RESPONSE 

Common methods used to check simulation models are the determination of the response to impulses 
and steps in the control variables. In most cases it is not necessary to use special operators as these forcing 
functions can usually be modelled by parameter changes. 

An actual impulse is of infinite height and zero time width and so is impossible to generate directly. The 
effects however are felt at all integrators the impulse is fed to, and result in a unity jump in the output of these 
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integrators. The easiest way to implement this jump in practice is to apply a value to the integrator initial 
condition which models receiving the impulse immediately prior to time equals zero. When the simulation 
program starts to execute it will then follow a solution trajectory in response to this hypothetical impulse. 

As an example consider a pendulum model so 

OMEGA = INTEG(-G*SIN(THETA)/L, OMEGAZ) 

THETA = INTEG(OMEGA, THETAZ) 

An impulse in force or momentum transferred to the pendulum ball at T=0 is modelled by specifying a 
non-zero value for the angular rate initial condition OMEGAZ. This may need some calculation since there 
are equations governing momentum transfer. These would apply if for example we struct the pendulum bob 
with a mallet and would correctly be placed in the INITIAL section. 

If the impulse is applied at times other than T=0, then the integral equation must be modified to add 
in the net integrated impulse or 

OMEGA = INTEG(-G*SIN(THETA)/L, 0.0) + DLOMEG 

Now the variable DLOMEG (delta OMEGA) is added in and becomes the initial condition on OMEGA (since 
the INTEG has an initial condition of zero). In this configuration we change DLOMEG and since it is always 
added to the state variable or output of the INTEG operator, OMEGA will jump discontinuously when this 
happens. If DLOMEG has been changed it must be reset in the INITIAL section prior to the start of each 
run. It itself becomes an effective state variable. Most cases can be handled by using the initial condition but 
when true impulses are applied during the simulation run, then the added variable becomes necessary (see 
the aspirin example in section 1 2 of Appendix A) 

Step responses are a different excitation technique, usually handled by adding a constant (initialized to 
zero) at a summing junction but often loops must also be broken. A typical requirement is to examine the 
response of a missile - pitch rate, pitch angle and accelerometer reading - to a step in fin deflection. This would 
normally be applied at time equals zero and the dynamic response recorded. The trouble here is that a simple 
change of initial condition on the fin angle integrator is not sufficient since after the model starts, the fin 
deflection will change due to the dynamics built into the actuator model. The key now is to break the outer 
loop and prevent this fin motion and the ease whereby this can be done depends somewhat on the actual fin 
dynamics model itself. A simple fin model is a first order lag with a typical time constant of 5 to 50 msec, 
so motion can easily be stopped by setting temporarily the time constant to 1 .0E30. This very large value 
ensures that the output will remain constant irrespective of what the input does. Alternatively there may be 
a gain between torquer and velocity integrator which can be made zero, so ensuring zero derivatives or a 
constant output. 

For these types of test cases it is important that model parameter values be given symbolic names, preset 
by CONSTANT statements. The symbolic name enters these into the ACSL dictionary and the CONSTANT 
statement is just a preset so values changed won't be changed back as they would if they were set via an 
assignment statement. It is bad practice to specify numbers within the code sequence, since no name can be 
assigned to the value and so the value itself is always fixed, requiring a re-edit of the model definition code 
in order to effect any changes. 

As an example, with a first order lag fin model with a time constant of 20 msec we have two choices 

a) REALPL (DL = 0.020, DLC, DLIC) 

b) CONSTANT TACT = 0.20 

REALPL(DL = TACT, DLC, DLIC) 

The second form is far better since now we can change the variable TACT at run-time by SET commands. 
For step responses we would use 
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SET TACT=10E30, DLIC=-0.010 
START 

which would generate the response for a fixed fin deflection of minus ten milliradians. 

8.5 EXTERNALLY DEFINED VARIABLES 

It is sometimes necessary to suppress the message relating to undefined variables which will be generated 
if names are found that never appear on the left hand side of an equals sign. This happens with external 
FORTRAN subroutines that are communicating with the ACSL program via the dollar sign ($) in column 
one and described in section 1.5. In order to tell the ACSL system that they are calculated and at the same 
time enter the name in the ACSL model dictionary, just mention them in a dummy PROCEDURAL block 
which can be placed anywhere in the program. 

Consider variables XF, YF and ZF which we know to be defined elsewhere. Add the following two lines 

PROCEDURAL (XF, YF, ZF = ) 
END 

which says that it is known that the variables XF, YF and ZF are defined somewhere. In this we assume that 
sorting problems are handled separately. Remember there is no check that the inside of a PROCEDURAL 
block agrees with the input/output list stated on the header and while it can be a useful feature, care is 
necessary in its use in actual simulation programs. 
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APPENDIX A 
ACSL EXAMPLE PROGRAMS 

A number of sample problems have been programmed and run using the ACSL simulation system. In 
all cases the input consisted of two files or sets of cards. The first describes the model under examination and 
the second is the run-time executive driver. In most cases the model can be considered as being described in 
parallel, i.e., there is no necessity to have variables calculated prior to their use. The translator will rearrange 
the program until it is in correct sequence for execution. On the other hand, the run-time executive is definitely 
sequential and the input is a sequence of commands that tell the model what to do next. At least a START 
card is necessary to exercise these models. 

All the output from these programs has been designed to fit on standard A size paper (eight and a half 
by eleven) where possible, for ease of reproduction. Normally the full width of the line printer is available 
(13") but we have restricted the use of this with the exception of line printer plots since reducing the grid size 
to 50 by 50 increases the coarseness, decreasing significantly the quality of the picture. The plots therefore 
have been produced on a 100 by 100 grid and the page reduced by 47% for publication. 

The listings produced from the OUTPUT command are sized to fit on the terminal where the size is 
controlled by the ACSL system variable TCWPRN (terminal character width for print out). When this is 
changed to 72, the output will fit on an 8.5 inch wide sheet. The low volume or display output is at the same 
time routed to logical unit nine (SET DIS=9) leaving the high volume output on logical unit six, the output 
of which was used to make the figures. These logical unit assignments are machine type specific and are 
described in the addenda for a particular installation. The figures were made on a CYBER 175, NOS 
operating system, 

1. LIMIT CYCLE 

The equations 

x = y + K x (1 - x 2 - y 2 )/Vx 2 + y 2 

y = -x + K y (1 - x 2 - y 2 )/Vx 2 + y 2 

where 

x(0) = xz; y(0) == yz 

describe a limit cycle in the xy plane. The limit cycle is a circle of radius 1 .0. That is, no matter what initial 
conditions are imposed on x and y (except x = y = 0), x 2 + y 2 -*l as t-»°° 

Assume that plotted time histories of x and y are required for t running from to 10 in steps of 0.2 see. 
Printed output need only be listed every 1 .0 sec. 

The coding for this problem is shown in Figure Al-1 which establishes the base model. Line 7 defines 
the root sum square value SQ as a named item so that it can be listed and plotted. Execution time is also saved 
by calculating the common subexpression once. 

The next three cards specify the integration equations. Line 13 specifies the termination condition 
(TERMT). The final time, TF, specified in the constant statement is given as slightly less than ten. If it's 
exactly ten an extra step will be taken since equality of floating point numbers is never exactly obtained. The 
value of T obtained by summing many small increments will in general be slightly less than the exact value. 

The run-time control cards follow - separated from the model description in the batch run by an end of 
record card (7/8/9 punch). First comes the output statements that determine what is to be listed (Figure 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 81/07/10. 09.35.19. PAGE 1 

PROGRAM LIMIT CYCLE 

. DEFINE ALL THE PRESET VARIABLES" 

CONSTANT XZ « 0.5 , YZ » 1 . 

CONSTANT K * 0.2 , TF - 9.99 

CINTERVAL CINT « 0.2 
■ GIME NAME T0 RMS VALUE" 

SQ « SQRT<X**2 + Y**2) 

. ISOLATE COMMON FACTOR" 

KK a (1.0 - SQ**2)/SQ 

. ---LIMIT CYCLE EQUATIONS" 

X » INTEG< Y + K*X*KK, XZ) 
Y » INTEG<-X + K*Y*KK, YZ) 

. DEFINE STOPPING CONDITION" 

TERMT<T .GE. TF> 
END *" OF PROGRAM " 

1.718 CP SECONDS 2056 TABLE SPACE USED 3 TABLE MOVES 



SPARE 

SET TITLE = "LIMIT CYCLE PROBLEM" 

S TCWPRN«72,DIS=9 *" FORCE 3 COLUMN OUTPUT WIDTH " 

OUTPUT T,X,Y,SG, "NCI0UT"=5 * "DEFINE LIST TO BE PRINTED DURING RUN" 
PREPAR T,X,Y,SQ ♦"DEFINE LIST TO BE SAVED FOR LATER USE- 

START 

PLOT X,Y,SQ $"PLOT AS FUNCTION OF TIME- 
PLOT "XAXIS"=X, Y $"PHASE PLANE PLOT- 
SET NPXPPL=60,NGXPPL=12 *"SQUARE UP PHASE PLANE PLOT- 
PLOT Y $"ASSUMES XAXIS IS LAST VARIABLE EXPLICITLY DEFINED" 
SPARE 
STOP 



Figure A1-1. Listing of Limit Cycle Model and Executive Command Cards 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 81/07/10. 09.35.55 



PAGE 



SPARE 

ACCUMULATED CP TIME 6.011 SEC. ELAPSED CP TIME 6.011 SEC. 

SET TITLE » "LIMIT CYCLE PROBLEM" 

S TCWPRN=72,DIS«9 *" FORCE 3 COLUMN OUTPUT WIDTH " 

OUTPUT T,X, Y,SQ, "NCI0UT"=5 ♦"DEFINE LIST TO BE PRINTED DURING RUN" 



PREPAR T,X,Y,SG 
START 

T 0. 
SQ 1. 11803399 

T 1.00000000 
SQ 1.07761050 

T 2.00000000 
SQ 1.05136673 

T 3.00000000 
SQ 1.03414305 

T 4.00000000 
SQ 1.02275868 

T 5.00000000 
SQ 1.01519858 

T 6.00000000 
SQ 1.01016246 



T 7.00000000 
SQ 1.00680071 



T 8.00000000 
SQ 1.00455355 

T 9.00000000 
SQ 1.00305005 

T 10.0000000 
SQ 1.00204348 



♦"DEFINE LIST TO BE SAVED FOR LATER USE" 

Y 1.00000000 



X 0.50000000 
X 1.07143048 
X 0.65941072 
X-0. 32732337 
X-0. 99128128 
X-0. 74193795 

X 0.18130838 



PLOT X,Y,SQ 



X 0.93107118 
X 0.82357251 

X-0. 03897837 

X-0. 86359260 

♦"PLOT AS FUNCTION OF TIME" 



Y 0. 11524377 
Y-0. 81887087 
Y-0. 98097465 
Y-0. 25178710 

Y 0.69293307 

Y 0.99375825 

Y 0.38308500 
Y-0. 57520097 

Y-l. 00229241 

Y-0. 50823121 



Figure A1-2. Run-time Control and Output Stream of Limit Cycle Models 
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ACSL RUN-TINE EXEC VERSION 1 LEVEL <SM 
LIMIT CYCLE PROBLEH 



81/07/10. 09.35.55. 



X A -2.000000 -1.600000 -1.200000 -0.800000 -0.400000 

Y B -2.000000 -1.600000 -1.200000 -0.800000 -0.400000 

SQ C 1.000000 1.100000 1.200000 1.300000 1.400000 

T XAXIS 



0. 0.400000 0.800000 
0. 0.400000 0.800000 
1 . 500000 1 . 600000 1 . 700000 



1 . 200000 
1 . 200000 
1 . 800000 



1.600000 2.000000 
1.600000 2.000000 





. .c 










. . . A 


B. . . . 






c 
c 
c 
c 
c 
c 
c 


c 
c 




B 
B 


B 
B 


B 
B 


A 
B 
B 


. B 
A 
A 
A 
A 
A 
A 
A 
A 






c 

c 
c 
c 
c 
c 
c 
c 
. c 
. . c 




B 
B 
B 
B 
B 

B 

A 


A 
B A 
B 

B 


A 
A 


A 
A 


A 








. c 
. c 
. c 
. c 
. c 
.c 
.c 
.c 
.c 

.c 




A 
A 
A 
A 


A 

A 


B 
A 


B 

B 


B 

B 


B 
B 
B 
B 






.c 
.'c 
.c 
.c 
.c 
.c 
.c 
'.c 








B 


A 
B 


A 

* 
B 


B 
B 

A 

A 
A 
A 
A 

A 






c 

c 
c 
c 
c 
c 
c 
c 




B 
B 
B 
B 
B 
B 
I 


B 

A 
A 
A B 


A 
A 


A 
A 


A 
A 









10.00000 c 
PLOT 'XAXIS'-X, Y ♦■PHASE PLANE PLOT 



Figure A1-3. Plot Resulting from Last Command on Figure A-2 for Limit Cycle Model 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 81/07/10. 09.35.55. PAGE 3 
LIMIT CYCLE PROBLEM 



Y A -2.000000 -1.600000 -1.200000 -0.800000 -0.400000 0. 
X XAXIS 
-2.000000 



0.400000 0.800000 1.200000 1.600000 2.000000 




2.000000 

SET NPXPPL=60, NGXPPL=12 $'SQUARE UP PHASE PLANE PLOT" 
PLOT Y *"ASSUMES XAXIS IS LAST VARIABLE EXPLICITLY DEFINED" 



Figure A1-4. Plot Resulting from Last Command Figure A-3 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 81/07/10. 09.35.55 
LIMIT CYCLE PROBLEM 



Y A -2.000000 -1.600000 -1.200000 -0.800000 -0.400000 0. 
X XAXIS 
-2.000000 



0.400000 0.800000 1.200000 1.600000 2.000000 




2.000000 
SPARE 

ACCUMULATED CP TIME 7.630 SEC. ELAPSED CP TIME 1.619 SEC. 
STOP 



Figure A1-5. Phase Plane Plot of Figure A-4 with Axes Squared 
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A 1-2) during the run. The qualifier 'NCIOUT' is set to five to indicate output is only to occur every five 
communication intervals. Then START initiates the run and produces the listing. The next command is PLOT 
which produces the page plot shown in Figure A 1-3. As can be seen, the root sum square value SQ tends to 
1.0. A phase plane plot follows (Figure A 1-4) where y is plotted against x. Note the distortion of the circle 
to an ellipse because the printer characters are longer than they are wide (ratio of 10:6). Next the x-axis had 
been changed by 

SET NPXPPL = 60, NGXPPL = 6 

(number of points in the x direction for printer plots). The grid is now square and the plot circular (Figure 
A 1-5). Note the second plot does not specify the x-axis variable - the last one used is assumed. 

Other values of the constants could have been tested by following this plot card with further SET 
statements followed by another START. 

2. SPRING 

A spring supporting a mass with a viscous damper attached can be modelled by a linear second order 
differential equation. The equation is derived by writing the expression for the force acting on the mass and 
then using Newton's Law (force equals mass times acceleration) to calculate the acceleration. If x is the linear 
displacement of the spring, the spring restoring force is -Ax lbs, where A is the spring constant (lbs/ft), and 
the viscous damping is proportional to the velocity and opposing it or -Kx lbs, where K is the coefficient of 
the viscous friction in lbs/ (ft/sec). If W is the weight in lbs attached to the spring, then the mass is W/g slugs 
where g is the acceleration due to gravity. With this we can express Newton's Law so or: 

W " • 

y- x = W - Kx - Ax 

where W, the weight, is the force due to gravity tending to extend the spring. Dividing both sides of the above 
equation by W/g we obtain the expression for the highest derivative or: 

x = (W - Kx - Ax) / (W/g) 

Integrating this twice leads to the two statements: 

x = / x dt 



/* 



x dt 

Figure A2- 1 shows the ACSL model definition statements that represent the dynamics of the mass when it 
is released. Note the alternate way of obtaining time by integrating a constant one. This is useful if it becomes 
necessary to change the initial condition on time. The run-time drive cards are shown in Figure A2-2 and 
output listings in Figure A2-3 through A2-6. At the bottom of Figure A2-4 the plot is set up with a specified 
Y-axis scale factor and Figure A2-5 shows the resulting limited plot. Out of bounds points are brought back 
to the edge of the plot with no attempt made to interpolate for correct intersection with the edge. Beware that 
the slope of the curve as it approaches the limit condition will therefore be incorrect. 

The communication interval was defined in the model definition section to be 0.02 seconds and with a 
run time of 4 seconds this will save 201 data points. Since the x-axis size is a hundred points, two data points 
will be available for plotting in each x-axis box. When they fall in different y-axis boxes, the two points are 
shown on the same vertical line - see Figure A2-4 -,but this is only an artifact of the coarse plotting medium. 
When the rates of change are slow enough, the two points will coalesce into a single point as shown at the 
extrema of the curves. 

3. CONTROL LOOP 

This program was chosen to illustrate how MACROS are used to represent transfer functions from a 
system block diagram. The problem is the design of a lead-lag controller for a second order plant that has 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION :l. LEVEL 6F 81/07/10. 09.32.52. PAGE 1 

PROGRAM SPRING 
DERIVATIVE 

" • SPRING DAMPING PROBLEM. MODELS RELEASING" 

A MASS FROM INITIAL CONDITIONS OF ZERO" 
VELOCITY AND DISPLACEMENT" 
C INTERVAL CI NT « 0.02 

"-- - DEFINE PRESET VARIABLES" 

CONSTANT XIC « 0.0 , XDIC = 0.0 , W = 1.0 
, K « 0. 02 , A « 1.0 , G « 32.2 
, TSTP = 3.99 

" - ANOTHER WAY OF CHANGING THE INDEPENDENT" 

VARIABLE" 
TIME = INTEGC.1. .0, 0.0) 
XDD «<U •••• K*XD - A*X)/(W/G) 

"- - INTEGRATE ACCEL FOR VELOCITY AND POSITION" 

XD = INTEG<XDD, XDIC) 
X = INTEG<XD , XIC ) 

" - SPECIFY TERMINATION CONDITION" 

TERMT<T.GE. TSTP) 
END $" OF DERIVATIVE ■ 
END V OF PROGRAM " 

Figure A2-1 . Listing of Model Defintion for Spring Damping Problem 



SET TITLE « "SPRING DAMPING PROBLEM" 

S TCUPRN=72,DIS=9 $" FORCE 3 COLUMN OUTPUT WIDTH M 

OUTPUT TIME, XDD, XD, X, "NCI0UT"«20 

PREPAR XDD, XD, TIME, X 

START 

RANGE "ALL" 

PLOT "XAXIS" « TIME $" SET TIME AS X-AXIS FOR SUBSEQUENT PLOTS 

PLOT X,XD *■ USE AUTOMATIC SCALING" 

PLOT X, "HI '=1.0, "LO'^O.O, XD 

PLOT ■ XAXIS "«XD, X $" PHASE PLANE PLOT" 

STOP ^ 



Figure A2-2. Run-time Drive Commands to Exercise Spring Damping Problem 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 81/07/10. 09.33.37 



PAGE 



SET TITLE « -SPRING DAMPING PROBLEM" 

S TCWPRN»72, DIS»9 $" FORCE 3 COLUMN OUTPUT WIDTH " 

OUTPUT TIME, XDD, XD,X, "NCI0UT"=20 

PREPAR XDD, XD, TIME, X 

START 



TIME 0. 
X 0. 

TIME 0.40000000 
X 1.52486284 

TIME 0.80000000 
X 1. 18166762 

TIME 1.20000000 
X 0.38969003 

TIME 1.60000000 
X 1.54707775 

TIME 2.00000000 
X 0.85545031 

TIME 2.40000000 
X 0.73999060 

TIME 2.80000000 
X 1.40461313 

TIME 3.20000000 
X 0.74518210 

TIME 3.60000000 
X 0.97431479 

TIME 3.99200000 
X 1.23345847 



XDD 32.2000000 
XDD-19. 3714113 
XDD-3. 06640990 
XDD 18.4264342 
XDD-18. 3865897 
XDD 6.46987709 
XDD 6.92302052 
XDD-12. 7990980 
XDD 9.06683251 
XDD-O. 32094098 
XDD-6. 92515695 



XD 0. 

XD 3.83668940 
XD-4. 32187508 
XD 1.90302322 
XD 1. 19671746 
XD-2. 81890860 
XD 2.25043816 
XD-O. 35628069 
XD-1. 33803765 
XD 1.78261606 
XD-O. 91957557 



RANGE "ALL" 

XDD-27. 0956534 32. 2000000 

XD-4 . 35499524 5 . 20222033 

TIME 0. 3.99200000 

X 0. 1.83607297 

PLOT "XAXIS" * TIME V SET TIME AS X-AXIS FOR SUBSEQUENT PLOTS" 

PLOT X,XD *" USE AUTOMATIC SCALING" 



Figure A2-3. Run-time Control Card and Output Stream - Spring Damping Problem 
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ACSL RUN-TIHE EXEC VERSION 1 LEVEL 6M 81/07/10. 09.33.37. PAGE 2 
SPRING DAMPING PROBLEM 

X A 0. 0.200000 0.400000 0.600000 0.800000 1.000000 1.200000 1.400000 1.600000 1.800000 2.000000 

XD B -10.00000 -8.000000 -6.000000 -4.000000 -2.000000 0. 2.000000 4.000000 6.000000 8.000000 10.00000 

TIME XAXIS . 

B. .B. 

.A A . B B. 



A A 



B B 



A A 



B B. 



4.000000 
PLOT Xt ■HI , «1.0i ■L0"»0.0, XD 



.A BB 
1KB A 
. B B 



A A BB 



B A A 
BBA A 
AA B 



AA B. 



Figure A2-4. Plot with Automatic Scale Factor Selection - Spring Damping Problem 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 81/07/10. 09.33.37. PAGE 3 
SPRING DAMPING PROBLEM 

X A 0. 0.100000 0.200000 0.300000 0.400000 0.500000 0.400000 0.700000 0.600000 0.900000 

XD B -10.00000 -8.000000 -6.000000 -4.000000 -2.000000 0. 2.000000 4.000000 A. 000000 8.000000 

TIME XAXIS . 

B. B. 

B B. 



1 . 000000 
10.00000 



' A— A_ 



A A_ 



4. 000000 
PLOT ■XAXIS^XD, X $■ PHASE PLANE PLOT 






B B 



.>' 



A!(<B 



B B 



B B 



"*<L 



A---^ 



A A— 



Figure A2-5. Forced Off-Scale Plot by Specifying Y-Axis Scale Factor for X-Spring Damping 

Problem 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL AM 81/07/10. 09.33.37. PAGE 4 
SPRING DAMPING PROBLEM 

X A 0. 0.200000 0.400000 0.600000 0.800000 1.000000 1.200000 1.400000 1.600000 1.800000 2.000000 
XD XAXIS 
-10.00000 
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Figure A2-6. Phase Plane Plot - Spring Damping Problem 
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a measurement device containing a first order lag (real pole). Figure A3-1 shows the system block diagram. 
Constants in the model are as follows: 



Ti = 0.020 sec 
T 2 = 0.005 sec 



B = 0.200 sec 

Kj = to be determined 



T 3 = 0.002 sec K 2 = 0.5 

A = 0.012 (sec) 2 K 3 = 1.0 

The model definition is shown in Figure A3-2 and the run-time drive sequence in Figure A3-3. In the model 
definition, the communication interval (CINT) is defined to be 5msec, a step in input is applied at 20msec 
(TZ) and the transient is allowed to run to the stop time (TSTP) of 499msec or 100 recorded data points. 
In the model listings, the transfer function operators, REALPL, CMPXPL and LEDLAG are embedded in 
the right hand side expressions. This is acceptable when the output is a single numeric quantity and in fact 
these can be nested to any depth desired. An alternate form is available for stand alone use if the operator 
is known to be a MACRO as follows for the three lines calculating XM, X and XP respectively. 

REALPL (XM = TA3, K3*X, 0.0) 

CMPXPL (X = A, B, K2*XP) 

LEDLAG (XP = TA1, TA2, K1*E, 0.0) 

This form of the MACRO invocation is sometimes preferable since it restricts generation of dummy names 
(or those starting with Z0 . . .). In changing to the above form we have used the property of linear operators 
that pre and post multiplication by scalars are equivalent. 

In the run-time drive commands (Figure A3-3) the OUTPUT and PREPAR lists are specified and a 
procedure GO defined. The card images between the PROCED . . . END are saved and not executed. Then 
two runs are made using the procedure now as a new command, the first with Kl equals to 100.0 and the 
second 10.0. Each 'GO' invokes the START/PLOT sequence saved in the procedure. Figures A3-4 through 
A3-7 show the output stream generated as a result of the run-time drive commands. Notice that when the 
commands within the procedure are echoed back a trailing dollar sign ($) is appended. 
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T 3 S+l 

































Figure A3-1 . Control Loop Problem Block Diagram 
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*********ADVANCED CONTINUOUS simulation language********* 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 81/07/13. 13.54.16. PAGE 1 

PROGRAM LOOP 

H -•-• — -DEFINE PRESET VARIABLES" 

CONSTANT Kl = 50.0 , K2 « 0.5 , K3 « 1.0 

, TSTP = 0.499 , TA1 « 0.020 , TA2 = 0.005 
, TA3 « 0.002 , A « 0.012 , B « 0.200 
, TZ = 0.02 

CINTERVAL CINT « 0.005 

" — - -OUTPUT OF FIRST ORDER LAG IS MEASUREMENT" 

XM « K3*REALPL(TA3, X, 0.0) 

"•-- - - - -FORCING FUNCTION" 

XC « STEP(TZ) 

E « XC •••• XM 

" — - - - -DEFINE 2-ND ORDER PLANT ■ 

X * K2*CMPXPL < A , B , XP , 0.0, 0.0) 

" — — - CONTROLLER OUTPUT" 

XP = K1*LEDLAG(TA1, TA2, E, 0.0) 

"•- -••• - - - -•- SPECIFY TERMINATION CONDITION" 

TERMT(T.GE.TSTP) 
END $" OF PROGRAM " 



Figure A3-2. Listing of Control Loop Model Definition 



SET TITLE « "CONTROL LOOP PROBLEM" 

8 TCWPRN«72,BIS=9 *" FORCE 3 COLUMN OUTPUT WIDTH " 

OUTPUT T, XC, E, XP, X, "NCIOUT B -:I.O 

PREPAR T,XC,E,XP,X,XM 

PROCED GO 

START 

"FORCE SAME SCALES FOR COMMAND AND MEASURED •••• FIRST VARIABLE IS REFNCE" 

PLOT X,XC,XM, "SAME",E 

END $" OF PROCEDURE " 

"MAKE TWO RUNS AND PRODUCE PLOTS OF EACH" 

SET Ki=100.0 * GO 

SET Kl=10. $ GO 

STOP 



Figure A3-3. Run-time Drive Commands for Control Loop Problem 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 81/07/13. 13.54.41 



PAGE 



SET TITLE = "CONTROL LOOP PROBLEM" 

S TCUPRN«72, DIS=? $" FORCE 3 COLUMN OUTPUT WIDTH " 

OUTPUT T > XC , E , XP , X , " NC I OUT ■ « 1 

:, REPAR T,XC\E,XP>X,XM 

'ROCED GO 
START 

"FORCE SAME SCALES FOR COMMAND AND MEASURED - FIRST VARIABLE IS REFNCE 
PLOT X,XC,XM, "SAME'SE 
END *" OF PROCEDURE " 

"MAKE TWO RUNS AND PRODUCE PLOTS OF EACH" 
SET Kl=100. $ 00 
START* 



T 0. 
XP 0. 



XC 0. 
X 0. 



E 



T 0.05000000 
XP-79. 0815517 



XC 1.00000000 
X 1.36474747 



E~0. 34243054 



T 0. 10000000 
XP 4.53840650 



XC 1.00000000 
X 0.94349680 



E 0.06252934 



T 0. 15000000 
XP 2. 64982182 



XC 1.00000000 
X 0. 98019850 



E 0.01896207 



T 0.20000000 
XP 1.88110551 



XC 1 . 00000000 
X 0.98078639 



E 0. 01921891 



T 



JOOOOOO 



XP 1 . 96034782 



XC 1.00000000 
X 0. 98036255 



E 0.01964535 



T 0. 30000000 
XP 1.96161406 



XC 1.00000000 
X 0.98039061 



E 0.01960870 



T 0.35000000 
XP 1.96072193 



XC 1.00000000 
X 0.98039258 



E 0.01960740 



T 0.40000000 
XP 1.96078106 



XC 1.00000000 
X 0.98039214 



E 0.01960787 



T 0.45000000 
XP 1.96078520 



XC 1.00000000 
X 0.98039215 



E 0.01960785 



T 0.49950000 
XP 1.96078427 



XC 1.00000000 
X 0.98039216 



E 0.01960784 



"FORCE SAME SCALES FOR COMMAND AND MEASURED 
PLOT X,XC,XM, "SAME»,E* 



FIRST VARIABLE IS REFNCE"* 



Figure A3-4. Run-time Drive Commands and Output Stream of Control Loop Problem 
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ACSL RUN-TIME EXEC VERSION 
CONTROL LOOP PROBLEM 



1 LEVEL 6M 81/07/13. 13.54.41. 



XA 0. 0.200000 0.400000 0.600000 0.800000 1.000000 1.200000 1.400000 1.600000 1.800000 Z. 000000 

XC B 0. 0.200000 0.400000 0.600000 0.800000 1.000000 1.200000 1.400000 1.600000 1.800000 2.000000 

XM C 0. 0.200000 0.400000 0.600000 0.800000 1.000000 1.200000 1.400000 1.600000 1.800000 2.000000 

E B -1.000000 -0.800000 -0.600000 -0.400000 -0.200000 0. 0.200000 0.400000 0.600000 0.800000 1.000000 



D * C 
ftCBD 



*. .B. B. 

* B D 

CAB D 

*BB 

C*D 



*BB 
*BD 
*BD 
*BD 
*BB 
*BB 
*BB 
*BB 
*BB 
*BD 
*BB 
*BB 
*BB 
*BD. 
*BD 
*BB 
*BD 
*BB 

*bd 

*BD 
*BD 
*BD 
*BB 
*BD 
*BD 
*BB 
*BD 
*BI) 
*BD 
*BD 

•ttBS- 
*BD 
*BD 

. *BB. 
*BB 
*BB 
*BD 
*BD 
*BD 
*BD 
*BE 
*BIl 
*BD 
*BB 
*BIl 
*BD 
*BD 
*BB 
*BB 
*BB 
*BD 
*BB 
*BD 

. *BB . 
*BD 
*BB 
*BB 
*BD 
*BD 
*BB 
*BB 
*BB 
*BB 
*BB 
*BB 
»BD 
*BB 
*BD 
*BB 
*BB 
*BB 
*BB 
*BB 

. *BD. 



Figure A3-5. Plot of Input Step, XC, Output, X, and measurement, XM, to Same Scales with 

Error, E, for Control Loop Problem 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 
CONTROL LOOP PROBLEM 



SET Kl^lO.O $ GO 
START* 

T 0. 
XP 0. 



T 0.05000000 
XP 6.00718267 

T 0. 10000000 
XP 1.07926131 

T 0. 15000000 
XP-O. 03417260 

T 0.20000000 
XP 0.80350815 

T 0.25000000 
XP 1.67195084 

T 0.30000000 
XP 1.94272303 

T 0.35000000 
XP 1.83522449 

T 0.40000000 
XP 1 . 68335989 

T 0.45000000 
XP 1 . 6^.368836 

T 0. 49950000 
XP 1.63462643 



XC 0. 
X 0. 



81/07/13. 13.54.41 



E 0. 



PAGE 



XC 1.00000000 
X 0.26483287 

XC 1 . 00000000 
X 0. 78064589 

XC 1.00000000 
X 0.98055897 

XC 1.00000000 
X 0.94077047 

XC 1 . 00000000 
X 0.85305345 

XC 1.00000000 
X 0.81153849 

XC 1.00000000 
X 0.81366126 

XC 1.00000000 
X 0.82809089 

XC 1.00000000 
X 0.83631791 

XC 1.00000000 
X 0.83684777 



"FORCE SAME SCALES FOR COMMAND AND MEASURED 
PLOT X,XC,XM,/"SAME",E$ 



E 0.75834817 
E 0.23491640 
E 0.02168535 
E 0.05569507 
E 0. 14405774 
E 0. 18779721 
E 0. 18684210 
E 0. 17242946 
E 0. 16384387 
E 0. 16308868 
FIRST VARIABLE IS REFNCE'* 



Figure A3-6. Second Run - Control Loop Problem 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 
CONTROL LOOP PROBLEM 



81/07/13. 13.54.41. 



. 100000 
. 100000 
. 100000 
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. 200000 
. 200000 
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. 500000 
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. 600000 
. 600000 
. 600000 



. 700000 
. 700000 
. 700000 
. 700000 
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. 800000 
. 800000 
. 800000 
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. 900000 
. 900000 
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. 000000 
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Figure A3-7. Plot of Step, Output and Error for Second Run - Control Loop Problem 
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4. PILOT EJECTION STUDY 



The purpose of this investigation is to determine the trajectory of a pilot ejected from a fighter aircraft 
in order to ascertain whether he will strike the vertical stabilizer of the aircraft. Several combinations of 
aircraft speed and altitude will be investigated since the drag on the pilot, causing his relative horizontal 
motion with respect to the aircraft, is a function of air density and velocity (squared). The ejection system 
is devised so that it causes the pilot and his seat to travel along rails at a specified exit velocity, V E , at an angle, 
E , backward from vertical. The seat becomes disengaged from the rails at Y = Y^ This first phase of the 
ejection is illustrated in Figure A4-1. Once the pilot and seat combination leaves the rails, it follows a ballistic 
trajectory which can be determined; however, since it is the relative motion of the pilot with respect to the 
aircraft (which is assumed to fly level at constant speed) that is important, we can formulate our equations 
to obtain this trajectory directly. This phase of the ejection is shown in Figure A4-2. 

The governing equations are: 



x = v cos e - v y 

Y = V sin $ 

V = 



< Y < Y l 



-D 

M 



g sin0 



Y 



e = o 



D 



= - (g cos 0)/V 
= \ P c D sv^ 



0< Y < Yx 
Y> Yj 



Two cases will be run, viz: 

Case 1: V A = 900 ft/sec 

p = 2.3769 x 10" 3 slugs/ft 3 (sea level) 
Case 2: V A = 500 ft/sec 

p = 2.3769 x 10" 3 slugs/ft 3 (sea level) 
Constants (for all cases) 

m = 7 slugs g = 32.2 ft/sec 2 

C D = 1 S = 10 ft 2 



Y i = 4 f t 



V E = 40 ft/sec 



E = 15deg (= 15/57.3 rad) 
The initial values of V and (pilot's initial velocity vector at moment of leaving cockpit rails) are given by: 
V(0) = (V A - V E sin E ) 2 + (V E cos E ) 2 



0(0) = tan x 



Vg cos 



E 



V, 



V E sin E 
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- X 



Figure A4-1 . First Phase of Ejection 



PILOT AND SEAT 
AT TIME t 




AIRCRAFT AT 
TIME t 



Figure A4-2. Space Trajectories, Vehicle and Pilot 
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X(0) = Y(0) = 

A run is to be terminated when any one of these conditions occurs: 

X < -60ft (pilot beyond vertical stablizer) 

Y > 30 ft (pilot well above 12 ft high tail) 

t > 4.0 sec 

Print t, V, V, 0, X, and Y every 0.01 sec 

Plot X versus Y 

Plot X, Y, and V versus t 

The coding for this example is given in Figure A4-3 with comments as follows. A procedural is defined to 
calculate the switch YGEI (Y greater than or equal to one). Note that the initial conditions on the pilot's 
velocity VIC and flight path THIC are calculated in the initial section. They must not be calculated in the 
derivative section since the initial condition table is transferred to the state table before the derivative section 
is evaluated. The terminate condition of X less than -60 ft or Y greater than 30 ft or time greater than 4 sec 
is placed in the DYNAMIC section to be interrogated every communication interval. 

The output stream from running the model is shown in Figure A4-4 through A4-8. We have not 
separately listed the run-time drive cards since they are echoed as part of the normal output stream. In Figure 
A4-4, after establishing the title, the OUTPUT and PREPAR lists are defined and the first run is made 
(START) using the default parameter values defined in the model definition or aircraft velocity of 900 ft/sec. 
Output values are listed during the run every five communication intervals or 0.05 sec. The run stops at 0.44 
seconds since x has become more negative than the minimum specified or -60 ft. The first plot produces time 
histories, where the x-axis variable is T, and then the trajectory plot with the x-axis taken as X, the relative 
distance of thepilotalong the aircraft from the cockpit, negative towards the tail. At 60 ft. the pilot just clears 
the 12 ft. high tail. Note that this plot specifies 'XLO'=XMN or -60 ft. so that the plot runs from this value 
to zero. If the XLO subcommand had not been used, normal rounding would have caused the scales to run 
from -100 to zero, so wasting 40% of the plotting area. 

In Figure A4-7, a second run is set up with a debug print out at the derivative evaluation with T equal 
to or greater than 0.1: The output rate is reduced to every ten communcation intervals or 0.1 sec but the same 
list is maintained: The aircraft speed is changed to 500 ft/sec and the model run again. 

The debug output is obtained by using the ACTION command which is read as: When the independent 
variable ('VAR') is 0.1 take a value ('VAL') of 1 and store it into a location ('LOC') called NDBUG. The 
printout following the START card has the normal listing at the time equal to 0.0 and 0.1 (note the reduced 
frequency) and then all the variables in the model definition are listed out by the debug operation since the 
ACTION has made NDBUG positive. The time is actually at 0.101 sec which means that T was 
0.0999999999999 rather than 0.1 at the previous integration step. The order of the list is system variables 
(described in more detail in Section 7), state variables with their associated derivatives and initial conditions, 
followed by all the rest of the problem variables in alphabetical order. 

Since the ACTION statement changed the system variable NDBUG to one, only one debug list is written 
out and the run continues normally from that point with output every 0.1 seconds. The plot of the second run, 
Figure A4-8, shows the pilot now clearing the tail by 5 ft. at the lower velocity. 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 81/07/10. 11.25.41. PAGE 1 

PROGRAM EJECTION 

INITIAL 



CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CINTERVAL 



DEFINE ALL PRESET VARIABLES 

THEDEG =15.0 , DEGRAD =57.3 



Yl - 4.0 

S = 10.0 

RO = 0.0023769 

VA = 900.0 

YMX =30.0 



THE 



VX 
VY 
VIC 
THIC 



MASS =7.0 

CD = 1.0 

G = 3<c . jc 

VE = 40.0 

XMN = -60.0 

TMX = 4.0 

CINT = 0.01 

EJECTION ANGLE IN RADIANS" 

= THEDEG/DEGRAD 

SEAT INITIAL VELOCITY" 

= VA - VE*SIN(THE) 
= VE*COS<THE) 
= SQRT(VX**2 + VY**2) 
= ATAN2<VY, VX> 



END $" OF INITIAL " 

DYNAMIC 

DERIVATIVE 

. RELATIVE POSITIONS" 

X = INTEG<V*COS(TH) - VA, 0.0) 

Y = INTEG<V*SIN<TH), 0.0) 

SPACE VELOCITY AND FLIGHT PATH ANGLE" 

V = INTEG<YGE1*<-D/MASS - G*SIN<TH)>, VIC) 
TH = INTEG<YGE1*<~G*C0S<TH>/V>, THIC) 

. COMPUTE DRAG" 

D = 0.5*R0*CD*S*V**2 

. USE PROCEDURAL FOR SWITCH TO KEEP SEAT" 

" CONSTRAINED TO GUIDE RAILS. THIS OPERATION IS BETTER DONE BY 
YGE1 = RSW<Y .GE. Yl, 1.0, 0.0) 

" BUT IS SHOWN HERE TO DEMONSTRATE USE OF A PROCEDURAL BLOCK " 
PROCEDURAL (YGE1 = Y, Yl) 

YGE1 =1.0 

IF(Y.LT.Yl) YGE1 = 0.0 
END $" OF PROCEDURAL " 

END *" OF DERIVATIVE " 

. SPECIFY TERMINATION CONDITIONS' 

TERMT<X.LE.XMN .OR. Y.GE.YMX .OR. T.GE.TMX) 

END *" OF DYNAMIC " 

END *" OF PROGRAM " 



Figure A4-3. Listing of Model Definition Section for Pilot Ejection Problem 
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ACSL RUN-TIME EXEC VERSION. 1 LEVEL 6M 81/07/10. 11.26.11. 



PAGE 



SET TITLE * "PILOT EJECTION" 
S TCWPRN=72, DIS=9 *" FORCE 3 
OUTPUT T,TH,V,X,Y,D, "NCIOUT" = 
PREPAR T,TH,V,X,Y 
START 

T 0. 

X 0. 



COLUMN OUTPUT WIDTH 
5 



TH 0.0434025; 
Y 0. 



V 890.486592 
D 9424.00882 



T 0.05000000 
X~0. 51760084 



TH 0.04340252 
Y 1.93186163 



V 890.486592 
D 9424.00882 



T 0. 10000000 
X-l. 03520168 



TH 0.04340252 
Y 3.86372327 



V 890.486592 
D 9424.00882 



T 0. 15000000 

X_. O Or>0*70Z1"7 
Jt_. 7A.A./A.01/ 



TH 0.04167638 
Y 5.70253371 



V 832. 328907 
D 8233.24182 



T 0.20000000 
X-7. 74560503 



TH 0.03967529 
Y 7.33859116 



V 777.339784 
D 7181.29398 



T 0.25000000 
X-15. 1368159 



TH 0.03753729 
Y 8.79210784 



V 729. 161781 
D 6318.71416 



T 0. 30000000 
X-24. 7874576 



TH 0.03526236 
Y 10.0801944 



V 686.603725 
D 5602.64656 



T 0.35000000 
X-36. 4412100 



TH 0.03285045 
Y 11.2170486 



V 648.737032 
D 5001.70754 



T 0.40000000 
X-49. 8830398 



TH 0.03030154 



V 614.827136 
D 4492.48846 



T 0.44000000 
X-61. 8005731 



TH 0.02816375 
Y 12.9191282 



V 590. 148541 
D 4139.07780 



PLOT "XAXIS"=T, TH, V, X, Y *"TIME HISTORIES" 



Figure A4-4. Output Stream for Pilot Ejection Study 
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ACSL RUN-TIME EXEC 
PILOT EJECTION 



VERSION 1 LEVEL 6M 81/07/10. 11.26.11. 



0.038000 0.042000 0.046000 0.050000 

850.0000 900.0000 950.0000 1000.000 

30.00000 -20.00000 -10.00000 0. 

14.00000 16.00000 18.00000 20.00000 




0.500QOO 
PLOT "XAXIS"=X, ■XLO"=XMN, Y ♦ 'GEOMETRICAL X VS.Y 



Figure A4-5. Time Plot - Pilot Ejection Study 
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AC8L RUN-TIME EXEC VERSION 1 LEVEL 6N 81/07/10. 11.26.11. PAGE 3 
PILOT EJECTION 

Y A 0. 2.000000 4.000000 6.000000 8.000000 10.00000 12.00000 14.00000 16.00000 18.00000 20.00000 
X XAXIS 
-60.00000 
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Figure A4-6. Trajectory Plot - Pilot Ejection Study 
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ACSL RUN-TIME EXEC 
PILOT EJECTION 



VERSION 1 LEVEL 6M 81/07/10. 11.26.11. 



PAGE 



"SET UP FOR DEBUG LIST OF ALL VARIABLES WHEN T * 0. 1 " 

ACTION "VAR" « 0.1, "VAL" « 1, "LOC" ■ NDBUG 

OUTPUT »NCI0UT* = 10 $■» SAME OUTPUT LIST, LOWER RATE * 

" LIST OF COMMANDS ON ONE CARD " 

SET VA * 500.0 $ START * SET DIS=9 $ PLOT "XAXIS" = X, "XLO" » XMN, Y 
T 0. TH 0.07874502 V 491.170015 

X 0. Y 0. D 2867. 11166 



T 0. 10000000 
X-l. 03520168 



TH 0.07874502 
Y 3.86372327 



V 491. 170015 
D 2867. 11166 



EBUG DUMP - SYSTEM 


VARIABLES. 


NDBUG IS 


T 0. 10100000 


ZZTICG 


0. 


ZZIERR F 


ZZNBLK 


1 


ZZST F 


ZZFRFL 


T 


ZZRNFL F 


ZZNS 


4 


MAXT l.OOOOE+10 


NSTP 


10 



STATE VARIABLES 

TH 0.07874502 

V 491. 170015 
X-l. 04555369 

Y 3. 90236050 

ALGEBRAIC VARIABLES 

CD 1 . 00000000 

G 32.2000000 

S 10.0000000 

TMX 4.00000000 

VX 489.647983 

Yl 4.00000000 

209999 o 

XICITG 0. 



DERIVATIVES 
Z09993 0. 
Z09994 0. 

Z09998-10. 3520168 
Z09996 38.6372327 



D 2867. 11166 

MASS 7.00000000 

THE 0.26178010 

VA 500.000000 

VY 38.6372327 

YGE1 0. 

ZZSEED 5555555555 



CINT 0.01000000 
ZZI 1 
ZZICFL F 

MINT l.OOOOE-10 
IALG 5 

INITIAL CONDITIONS 

THIC 0.07874502 
VIC 491. 170015 
Z09997 0. 
Z09995 0. 




DEGRAD 


57 


3000000 


RO 


0.00237690 


THEDEG 


15. 


0000000 


VE 


40 


0000000 


XMN- 


•60 


0000000 


YMX 


30 


0000000 


ZZTLXP 




T 



T 0.20000000 
X-3. 86295505 



TH 0.07220484 
Y 7.44086099 



peiSuG 

V 454.489096 OOTPuT 
D 2454.86634 



T 0.30000000 
X-10. 1960489 



TH 0.06486207 
Y 10.4422282 



V 421. 726827 
D 2113. 70011 



T 0.40000000 
X- 19. 5501745 



TH 0.05696625 
Y 12.9249537 



V 393.365588 
D 1838.96577 



T 0.50000000 
X-31. 5330481 



TH 0.04851703 
Y 14.9354053 



V 368.580106 
D 1614.52471 



T 0.60000000 
X-45. 8242341 



TH 0.03951440 
Y 16.5114590 



V 346. 740415 
D 1428.86054 



T 0.69000000 
X-60. 4398634 



TH 0.03093918 
Y 17.5845096 



V 329. 196798 
D 1287.92959 



Figure A4-7. Set Debug Printout, Run and Plot - Pilot Ejection Study 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 81/07/10. 11.26.11. PAGE 5 
PILOT EJECTION 



Y A 0. 

X XAXIS 

-60.00000 



2.000000 4.000000 6.000000 8.000000 10.00000 12.00000 14.00000 16.00000 18.00000 20.00000 




0. AnTTA. 



^VT 



y 






/* 



Figure A4-8. Last Trajectory - Pilot Ejection Study 
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5. TEMPERATURE DISTRIBUTION ALONG A RADIATING FIN 

The only practical way of rejecting heat from a power plant operating in outer space is by thermal 
radiation. If the "working fluid" of the power plant passes through tubes, an efficient radiating surface could 
be devised by placing many tubes side by side. This would maintain the entire surface at the highest possible 
temperature. Such a system, though, is highly vulnerable to being punctured by a meteor fragment or some 
other particle, and this could lead to the loss of the vital working fluid. 

A less efficient but also less vulnerable arrangement is shown in Figure A5- 1 . The number of tubes has 
been reduced and the space between the tubes has been filled by a fin of rectangular cross section. We want 
to determine the temperature profile across the fin for various tube spacings, fin thicknesses, fin material, etc. 
The temperature profile, in turn, can be used to calculate the efficiency of the radiating system. Keep in mind 
that this is really a problem in static temperature distribution. Time is not a factor because steady state 
conditions throughout the system are assumed. 

5.1 Assumptions 

Two views of the radiating fin are shown in Figure A5-2. In terms of this figure, the pertinent assump- 
tions are as follows: 

1) Steady-state conditions have been established. 

2) Heat is transferred out of the fin only by radiation through a nonabsorbing medium. 

3) Thermal properties of the material are constant. 

4) There is no heat conduction in the y direction. 

5) Heat loss from the two exposed side edges is small enough to consider the edges as being insulated. 

6) Temperature is effectively constant across the fin thickness, 2H, at all values of x which implies 2H 
<<W, 2H << L 

These assumptions reduce the problem to mathematical formulation for one-dimensional steady-state heat 
transfer under combined radiation and conduction. 

5.2 Mathematical Formulation 

Consider the heat balance for an element strip shown in Figure A5-3 where the width is W, half thickness 
is H, and length is Ax. The local rate of heat conduction through the cross-sectional area 2HW at position 
x is given by Fourier's equation to be 



q Y = - K(2HW) 



dT 
dx 



where K is the thermal conductivity of the material. 
The rate of heat conduction out of the segment is 

dT 



q x + Ax = -K(2HW) ^- 



x + Ax 



The rate of heat lost by radiation is the difference, namely 
Aq = -K(2HW) 



— 




— 


dT 


dT 




dx 


" dx 




x 


x + Ax 
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TEMPERATURE 
PROFILE 




\&r 



Figure A5-1 . A Radiating Surface Using Tubes and Fins 




Figure A5-2. Geometry of the Radiating Fin 




Figure A5-3. Heat Balance for an Elemental Strip 
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This can also be expressed by means of the Stephan-Boltzman law for heat radiation, considering both the 
top and bottom surfaces of the element; 

Aq = re (T 4 - T s 4 ) (2WAx) 
where 

a = Stephan-Boltzman constant for the material 

€ = emissivity of the material 

T = temperature of the segment, in °R 

T s = temperature of the surroundings, in °R 
The heat balance equation, then becomes 



- K(2HW) 



dT 



dx 



dT 
dx 



= oe (T 4 -T 4 )(2WAx) 



x + Ax 
Dividing both sides by -K(2HW)Ax and inverting the order on the left side gives: 



1 

Ax 



dT 



dx 



dT 
dx 



x + Ax 



^ g /T4 _ T 4 \ 

KH U s ) 



In the limit, as Ax-*0, the left side becomes the second derivative of T with respect to x, so that the final 
equation becomes 



d 2 T _ ae 
dx 2 KH 



(T 4 - T s 4 ) 



5.3 Initial Conditions and Parameters 

Since Equation A5-1 is a second order differential equation, appropriate initial conditions must be 
specified for the temperature and the temperature gradient at x = 0. While the initial temperature is known, 
(the temperature where the fin joins the tube) the initial temperature gradient is not known. However, it is 
clear from the symmetry of the arrangement that the temperature gradient at the midpoint between tubes 
where x = L is zero. Thus, the problem falls in the category of a two-point boundary value problem that must 
satisfy these conditions: 

T(0) = 2000 °R 



dT 
dx 



= 



x = L 

A complete list of variables and parameters, along with suitable units, is as follows: 

T = Temperature °R 

x = Distance ft 

a = 0.173 x 10-8 Btu/(hr) (ft 2 ) (°R 4 ) 
e = 0.9 

K = 25 Btu/(hr) (ft 2 ) (°R) 
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H = 0.00125 


ft 


L = 0.25 


ft 


T s = 


°R 



Notice that the temperature of the surroundings, T s , has been taken to be at absolute zero for this example. 

5.4 Solution 

A solution is considered to be successful if 



dT 
dx 



< 0.2 when x = L 



The current run is terminated and a new run started if: 

1) T exceeds its initial value by one percent or more. 

2) T goes negative. 

3) f*I > 0.2 when x = L 
dx 

A new estimate of DTDXZ is computed using: 

DTDXZ = DTDXZ - 0.07*DTDX(x = L) 

new old 

where DTDX(x = L) is the final value of the temperature gradient. One case is to be run with an initial 
temperature of 2000 °R and an estimated temperature gradient of -20,000 °R./ft. 

The listing of the model definition section is shown in Figure A5-4. Note that the terminal section checks 
the final value of temperature slope and if not within the specified tolerance recycles to the initial section for 
another run with a new value of initial slope. The independent variable is specified to be the variable X and 
the initial condition is set to 1.0E-10 to give it a lead on the round off error. 

The call to subroutine LOG forces an OUTPUT operation and resets the counter for the "NCIOUT" 
divisor so that the last value of the run will always be listed. 

The output stream is shown in Figure A5-5 through A5-12. After the START, the first three iterations 
find the intermediate temperature is more than 1 percent greater than the starting value, so triggering the 
terminate (TERMT) condition. For the fourth and subsequent iterations the x variable gets to 0.25 and now 
the final value of dt/dx is slowly reduced until at iteration number ten the value is -0.153, well within the 
ERROR tolerance of 0.2. A more detailed printout (PRINT) using data saved on the PREPAR list is started 
in Figure A5-7 and which goes on to Figure A5-1 1 . Note the use of the flyback trace suppression flag FTSPLT 
which when true will resynchronize the line count to zero when the independent variable (first variable on 
the PREPAR list) steps back to the initial condition. Once the iteration has converged, a second START - 
Figure A5-1 1 - redoes the last run, since the initial condition on temperature slope (DTDXZ) is still the same. 
This makes sure that the PREPAR list data base only has one run to be plotted, which shows, in Figure A5-12, 
the temperature gradient (DTDX) and temperature (T) plotted against distance (X) along the fin. It is often 
easier and more cost effective merely to repeat the last run of an iteration rather than making complicated 
arrangements to save each run separately, before it's known that the convergence criteria have been satisfied. 
Plotting after the first START card would have shown the parametric set of curves as the iteration proceeded, 
since the PREPARed file doesn't get rewound between runs on cycling from TERMINAL to INITIAL 
sections. In this case the overstrikes cause rather an unattractive plot and don't provide much information, 
since it's the final profile that is needed. 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 81/07/10. 09.35.22. PAGE 1 

PROGRAM RADIATING FIN 



INTEGER 


N 




CONSTANT 


SG ■- 1 . 73E-9 


, EP = 0.9 


CONSTANT 


l-l « 0. 00125 


, K = 25 . 


CONSTANT 


L ==•-• 0.25 


, TS = 0.0 


CONSTANT 


TZ « 2000.0 


, ERROR ~ 0.2 


CONSTANT 


DTDXZ « -20000.0 


, GAIN « 0.07 


C INTERVAL. 


CI NT = 0.0025 




" ••-- ~» 


OFF-SET 


INITIAL VALUE TO HANDLE ACCUMU-. . 




LATED ROUND OFF •••• CHANGE NAME FROM T TO X 


VARIABLE 


X « 1.0E-.1.0 




INITIAL 






» „ .._ _„ „ , 


NOTE N 


IS HANDLED AS AN INTEGER" 


N = 






LI. .CONTINUE 






N = N ■{ 


1 $" BUMP 1 


RUN COUNT " 



END *' OF INITIAL 
DERIVATIVE 



•NOTE NO DYNAMIC SECTION SINCE NOT USED 



"•- -- — - INTEGRATE FOR TEMPERATURE AND TEMP RATE" 

NOTE T IS NOW TEMP NOT TIME" 
T « INTEG<DTDX, TZ) 
DTDX ■■■■-- INTEG<SG*EP*(T**4 ••• TS**4)/(K*H) , DTDXZ) 

" - - --SPECIFY TERMINATION CONDITION " 

TERMT(X.GE.L .OR. T. GE. 1 . 01*TZ .OR. T.LT.O.O) 

END *" OF DERIVATIVE " 

TERMINAL 

"- FORCE OUTPUT AT END OF EVERY SWEEP " 

CALL LOG 

" - - — IF CONVERGED OR TOO MANY TRIES" 

IF (( ADS ( DTDX ).LT. ERROR) .OR. N.GT.10) GO TO L2 

» FIND NEW GUESS FOR INITIAL TEMP RATE" 

DTDXZ = DTDXZ - GAIN*DTDX 

■ --TRY RUN AGAIN " 

GO TO LI 
L2. .CONTINUE 

END *" OF TERMINAL " 

END $" OF PROGRAM " 



Figure A5-4. Listing of Model Definition Section for Radiating Fin Problem 
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ACS!... RUN -TIME EXEC VERSION 1 LEVEL 6M 



81/07/10. 09.36.09. 



PAG J 



SET TITLE = "RADIATING FIN PROBLEM" 

S TCWPRN=72, DJS=9 $" FORCE 3 COLUMN OUTPUT WIDTH 

OUTPUT X, T, N, DTDX, DTDXZ, "NCIOUT "=20 

PREPAR X, DTDX, T , N, DTDXZ 

START * " PERFORM I TER AT I ON " 



X l.OOOOE-10 
DTDX-20000.0000 



T 2000.00000 
DTDXZ-20000.0000 



X 0.05000000 
DTDX 3125.64616 



T 1655.08858 
DTDXZ-20000.0000 



X 0.08400000 
DTDX 20882.2789 



T 2022. 12802 
DTDXZ-20000.0000 



X 0.04750000 
DTDX- 1064. 29250 



T 1549.94861 
DTDXZ- 21461. 7595 



X 0.09750000 
DTDX 17906.0279 



T 1903.29153 
DTDXZ -2 1461. 7595 



X 0. 10350000 
DTDX 22336.6824 



T 2023.47708 
DTDXZ-21461. 7595 



X 0.04750000 
DTDX-4337. 96377 



T 1446.93596 
DTDXZ--23025.3273 



X 0.09750000 
DTDX 5876.63976 



T 1481.25259 
DTDXZ -23025.3273 



X 0. 13925000 
DTDX 23828.7709 



T 2023.07249 
DTDXZ -23025. 3273 



X 0.04750000 
DTDX -76 12. 48011 



T 1339.47700 
DTDXZ-24693.3413 



X 0.09750000 
DTDX-2310. 61152 



T 1108.29245 
DTDXZ-24693.3413 



X 0. 14750000 
DTDX 1076.41560 



T 1078.97754 
DTDXZ-24693.3413 



X 0. 19750000 
DTDX 5269.23907 



DTDXZ-24693.3413 



X 0. 24750000 
DTDX 16044.3551 



T 1702.91644 
DTDXZ-24693.3413 



X 0. 25000000 
DTDX 17143.5322 



T 1744.37926 
DTDXZ-24693.3413 



X 0. 04750000 
DTDX-9844. 85583 



T 1263.59645 
DTDXZ-25893.3885 



X 0.09750000 
DTDX-6545. 72840 



T 873.352393 
DTDXZ-25893.3885 



Figure A5-5. Run-time Commands and Output Stream from Radiating Fin Problem 
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ACSL. RUN-TIME EXEC VERSION 1 LEVEL. 6M 
RADIATING FIN PROBLEM 



81/07/10. 09.36.09. 



PAGE 



X 
DTDX- 


0. 14750000 
-5823.09994 


T 
DTDXZ- 


568.948130 
-25893.3885 


X 
DTDX- 


0. 19750000 
-5723.23787 


T 
DTDXZ- 


281.268091 
-25893.3885 


X 
DTDX- 


0.24675000 
-5720. 17206 


T- 
DTDXZ- 


-0.47550353 
-25893.3885 


X 
DTDX- 


0.04750000 
-9110.73249 


T 
DTDXZ- 


1288.78802 
-25492.9765 


X 
DTDX- 


0.09750000 
-5244.32007 


T 
DTDXZ- 


949.223751 
-25492.9765 


X 
DTDX- 


0. 14750000 
-4011.22327 


T 
DTDXZ- 


723 . 295028 
-25492.9765 


X 
DTDX- 


0. 19750000 
-3607.81982 


T 
DTDXZ- 


534 . 780029 
•25492.9765 


X 
DTDX- 


0.24750000 
-3501.62433 


T 
DTDXZ- 


357.711010 
•25492.9765 


X 
DTDX- 


0.25000000 
-3499.68229 


T 
DTDXZ- 


348.959417 
•25492.9765 


X 
DTDX- 


0.04750000 
-8656.36174 


T 
DTDXZ- 


1304.26264 
•25247.9987 


X 
DTDX- 


0.09750000 
-4396.61310 


T 
DTDXZ- 


996.832602 
•25247.9987 


X 
DTDX-- 


0. 14750000 
•2704.41990 


T 
DTDXZ- 


824.629724 
•25247.9987 


X 
DTDX- 


0. 19750000 
•1840.86108 


T 
DTDXZ- 


713.083960 
•25247.9987 


X 
DTDX- 


0.24750000 
•1329.91836 


T 
DTDXZ- 


634 . 803277 
-25247.9987 


X 
DTDX- 


0. 25000000 
-1309.90090 


T 
DTDXZ- 


631.503590 
-25247.9987 


X 
DTDX- 


0.04750000 
•8485.25438 


T 
DTDXZ- 


1310.06695 
•25156. 3056 


X 
DTDX- 


0.09750000 
-4068. 36337 


T 
DTDXZ- 


1014.89813 
•25156.3056 


X 
DTDX- 


0. 14750000 
•2166. 72613 


T 
DTDXZ- 


864. 120545 
•25156.3056 



Figure A5-6. Output Stream from Radiating Fin Problem 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 
RADIATING FIN PROBLEM 



81/07/10. 09.36.09 



PAGE 



X 0. 19750000 
DTDX-1033. 46037 



T 785.914904 
DTDXZ--25 156. 3056 



X 0.24750000 
DTDX-168. 016381 



T 756.432739 
DTDXZ -25156. 3056 



X 0.25000000 
DTDX- 127. 276801 



T 756.063639 
DTDXZ-25156.3056 



X . 04750000 
DTDX-8468. 59821 



T 1310.63128 
DTDXZ -251 47. 3963 



X 0.09750000 
DTDX-4036. 13740 



T 1016.66080 
DTDXZ -251 47. 3963 



X 0. 14750000 
DTDX -2.1 12. 90756 



T 868 . 006407 
DTDXZ -251 47. 3963 



X 0. 19750000 
DTDX-949. 677376 



T 793. 197114 
DTDXZ-25147.3963 



X 0.24750000 
DTDX -39. 8412710 



T 768.933252 
DTDXZ-25147.3963 



X 0.25000000 
DTDX 3.69604386 



T 768.888072 
DTDXZ-25147.3963 



X 0.04750000 
DTDX-8469. 08197 



T 1310.61489 
.DTDXZ-25147.6550 



10 



X 0.09750000 
DTDX-4037. 07406 



T 1016.60960 
DTDXZ-25147.6550 



10 



X 0. 14750000 
DTDX -2 11 4. 47448 



T 867.893440 
DTDXZ-25147.6550 



X 0. 19750000 
DTDX -952. 124666 



T 792.985106 
DTDXZ-25147.6550 



10 



X 0.24750000 
DTDX-43. 6068998 



T 768.568386 
DTDXZ-25147.6550 



10 



X 0.25000000 
DTDXO. 15323730 



T 768.513688 
DTDXZ -25147. 6550 



10 



X 0. 25000000 
DTDX-O. 15323730 



T 768.513688 
DTDXZ-25147.6550 



10 



S FTSPLT=.T. $■ SYNCHRONIZE OUTPUT WITH START OF EACH SWEEP ■ 
PRINT ■NCIPRN"=5,X, DTDX, T,N, DTDXZ *" DEMONSTRATE COLUMN PRINT 



LINE X 

l.OOOE-10 

5 0.0125000 

10 0.0250000 



DTDX 


T 


N 


DTDXZ 


•20000.000 


2000.0000 


1 


-20000.000 


•-.1.1950. 188 


1803.7801 


1 


-20000.000 


-6205. 1661 


1691.8472 


1 


-20000.000 



Figure A5-7. Output Stream from Radiating Fin Problem 
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ACSL RUN-TIME EXEC VERSION 1 
RADIATING FIN PROBLEM 



LEVEL 6M 01/07/10. 09.36.09. 



PAGE 



LINE 
15 
20 

Or 

30 



5 

10 

15 

20 

25 

30 

35 

40 





10 
15 
20 

30 
35 
40 
45 
50 
55 

5 
10 
15 
20 
25 
30 
35 
40 
45 
50 
55 
60 
65 
70 
75 
80 
85 
90 
95 
100 

5 
10 
15 
20 
25 
30 



X 
0.0375000 
0.0500000 
0.0625000 
0.0750000 
1.000E-10 
0.0125000 
. 0250000 
0.0375000 
. 0500000 
. 0625000 
. 0750000 
0875000 
1000000 
000E-10 
0125000 
0250000 
0375000 
0500000 
0625000 
0750000 
0875000 
1000000 
1125000 
0. 1250000 
0. 1375000 
1.000E-10 
0. 0:1.25000 
. 0250000 
0. 0375000 
0.0500000 
. 0625000 
0750000 
0875000 
1000000 
1125000 
1250000 
1375000 
1500000 
1625000 
1750000 
1875000 
2000000 
2125000 
2250000 
2375000 
2500000 
1.000E-1O 
0.0125000 
0250000 
0375000 
0500000 
0625000 
0750000 



D 

•1436. 
3125. 
8146. 
14529 
•21461 
13559 
8190. 
-4016. 
•347. 3 
3280. 
7313. 
12375 
19621 
23025 
15278 
10289 
6681. 
3799. 
1278. 
1129. 
3637. 
6488. 
10037 
14913 
22426 
2.4693 
17108 
12499 
9424 . 

-/ o '•.» o 

5550 . 

4214. 

3097. 
-2124. 
-1240. 

406 . 7 

41.1. 7 

1246. 

2.1.30. 

3.1.04. 

4221. 

5559. 

7234. 

9440. 

12521 

17143 
•25893 
•18422 
•14072 

11340 
•9539 . 
•8316. 
•7470. 



rnx 

4184 
6462 
5127 
. 539 
.760 
.972 
9365 
3286 
3759 
2301 
5237 
511 
83.1. 
327 
621 
154 
2732 
7728 
3675 
9274 
9960 
7176 
.549 
. 851 
. 033 
.341 
. 433 
. 304 
8571 
5452 
1240 
3992 
9892 
5781 
9257 
2519 
3022 
1259 
1939 
2982 
7835 
1505 
1135 
4962 
. 825 
. 532 
. 389 
. 598 
. 089 
. 023 
3127 
0321 
8513 



1644. 

1655. 

1724. 

1864. 

2000. 

1784. 

1650. 

1575. 

1548. 

.1.566. 

.1.631. 

.1.753. 

1950. 

2000. 

1764. 

.1.606. 

1501. 

1436. 

.1.405. 

1404. 

1433. 

1496. 

1599. 

1753. 

1982. 

2000 . 

1743. 

1560. 

1424. 

1320. 

1241. 

1180. 

1.1.35. 

1102. 

1081. 

1071. 

1071. 

1081. 

1102. 

1135. 

1181. 

.1.241. 

1321. 

1425. 

1561. 

1744. 

2000. 

1727. 

1526. 

1369. 

1239 

1128. 

1029 



T 
6516 
0886 
6749 
3242 
0000 
8628 
6714 
1924 
1848 
3385 
8588 
3970 
.1.666 
0000 
6382 
7887 
7414 
7669 
262.1. 
3409 
922.1. 
7040 
0.1.40 
0901 
6161 
0000 
0743 
1524 
2928 
9377 
5406 
7917 

O "7 O ~K 

*:. / x:. o 
7492 
7856 
5209 
5521 
8803 
9.1.13 
5086 
1131 
9639 
4885 
0.1.16 
.1.057 
3793 
0000 
5675 
710.1. 
1217 
3712 
2529 
9053 



N 


DTDXZ 


1 


-20000 


000 


1 


-20000 


000 


1 


-20000 


000 


1 


-20000 


000 


o 


-21461 


760 


o 


-21461 


760 




-21461 


760 


o 


•21461 


760 




-2146.1. 


760 


'■.» 


-2.1.461 


760 


'•.» 


-21461 


760 


A,. 


-21461 


760 


'"> 


-21461. 


760 


3 


-23025. 


327 


3 


-23025 . 


327 


3 


-23025 


327 


3 


-23025. 


327 


3 


-23025. 


327 


3 


-23025 


327 


3 


£. \S \l /.. \.l 


327 


3 


-23025 


327 


3 


-23025 


327 


3 


-23025. 


327 


3 


-23025 . 


327 


3 


-23025 


327 


4 


-24693 


341 


4 


-24693 


341 


4' 


•24693 


341 


4 


-24693 


341 


4 


•24693 


341 


4 


-2.4693 


341 


4 


-24693 


341 


4 


•24693 


341 


4 


-2.4693 


341 


4 


-24693 


341 


4 


-2.4693 


341 


4 


-24693 


341 


4 


-24693 


341 


4 


-24693 


341 


4 


-24693 


341 


4 


-24693 


341 


4 


-24693 


341 


4 


-24693 


341 


4 


-24693 


341 


4 


-24693 


341 


4 


-24693 


341 


5 


-25893 


389 


5 


-25893 


389 


5 


-25893 


389 


5 


-25893 


389 


5 


-25893 


389 


5 


-25893 


389 


5 


-25893 


389 



Figure A5-8. Output Stream from Radiating Fin Problem 
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ACSL RUN-TIME EXEC VERSION 
RADIATING FIN PROBLEM 



1 LEVEL AM 81/07/10. 09.36.09 



PAGE 



INE 




X 


DTDX 


T 


35 





0875000 - 


6883 


2429 


940.41418 


40 





1000000 - 


6475 


9.1.78 


857.07643 


45 





1125000 •- 


6196 


8071 


777.98410 


50 





1250000 - 


6009 


3789 


701.77561 


55 





1375000 - 


5887 


.1.889 


627.47874 


60 





1500000 - 
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Figure A5-9. Output Stream from Radiating Fin Problem 
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Figure A5-10. Output Stream from Radiating Fin Problem 
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Figure A5-1 1 . Output Stream from Radiating Fin Problem. Repeat of Last Converged Run 
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Figure A5-12. Plot of Temperature Profile and Gradient from Last Converged Run 

Radiating Fin Problem 
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6. AIRCRAFT ARRESTING GEAR SYSTEM 

The system investigated here is designed to halt a moving aircraft that would otherwise overrun the end 
of a runway. It is similar in principle to the gear used on aircraft carriers. The problem was selected for this 
manual because it employs a function generator and input relays. The equations listed below describe the 
system, and its geometry is shown in Figure A6-1. A plot of the "water squeezer" damping function, f{y^), 
is also shown on the figure. The aims of the investigation are to determine the range of aircraft weights and 
speeds that can be accommodated without exceeding the working limits of the cables or the allowable piston 
travel. Here, just two cases are investigated involving different aircraft velocities. 

Differential equations describing the acceleration of the three masses are: 



m 3 4^ =f K2- f D' m 24Tr 1 = wf Kl " f K2 



m, ^JL = -2f K1 sin0 

where the cable tension is given by: 

1ki(yi -2y 2 ) y x > 2y 2 
; Vi < 2y 2 

k 2 (y 2 - y 3 ) y 2 > y 3 
y 2 < y 3 

Drag force from the water squeezer is given by 

f D =F(y 3 ) 
and geometrical constaints lead to 



f K2 



(*)' 



y, = V (x2+h2) " h 



sin = 



h + yi <^(x 2 +h 2 ) 

Constants for the problem are as follows: 

m 1 = 1400 slugs k 2 = 4550 lb/ft 

m 2 = 45.28 slugs k 2 = 25,300 lb/ft 

m 3 = 20 slugs h = 125 ft 

Initial conditions are given by: 

y 3 (0) =0 y 3 (0) = 

y 2 (0) =0 y 2 (0) = 

x(0) = 290 ft/sec (Run 1) x(0) = 
= 200 ft/sec (Run 2) 
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Figure A6-1 . Aircraft Arresting Gear System 
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An arbitrary function of one variable is used for the squeezer drag coefficient. 

F(y3) = A function of y 3 - The data points for the function are shown on the listing, Figure 
A6-1. Linear interpolation between points is desired. 

This problem was programmed in the explicit mode with the INITIAL, DYNAMIC and DERIVATIVE 
regions being defined. The only reason is to show the use of standard FORTRAN output to write out the initial 
speed and case number at the beginning of each run. The DERIVATIVE section contains the descriptive 
equations modelling the system. The model definition listing is shown in Figure A6-2. 

The cables can only transmit tensile forces and account must be taken of the fact that when the cable 
extension is negative, the force is zero. Expressing the force as proportional to the simple extension k 2 (y 2 - 
y 3 ) is more representative of a spring. In the original formulation of this problem the function real switch 
operator RSW was used, i.e. 

FK2 = RSW(Y2. GE. Y3, K2*(Y2 - Y3), 0.0) 

When the first argument is true, the second argument is returned, else the third. A more elegant way of 
accomplishing the same thing is to use the FORTRAN function DIM (q.v.) that returns the positive difference 
between the two arguments - if the difference is negative (arg 1 minus arg 2) the result is zero. The force 
equation then becomes 

FK2 = K2*DIM(Y2, Y3) 

The damping coefficient, i(ys), was represented by a straight line approximation passing through 16 
breakpoints (15 segments). A better fit to the given function could have been obtained by using more 
breakpoints. 

Note the choice of termination conditions. The TERMT statement stops the problem after 10 sec, or 
when x reaches 1000 ft. 

The run-time command sequence follows (Figures A6-3 through A6-7) that sets the TITLE and changes 
the grid spacing from the default value of ten to fifty. The effect can be seen on the clarity of the following 
plots. The integration step size had to be changed by the following statement (NSTP is the number of steps 
in a communication interval) so 

SET NSTP =100 

makes the step size 1 msec since the communication interval is set to 0.2 sec. The reason for this is the small 
time constant associated with the third mass, m 3 , together with the nonlinearity - the function - that makes 
the program particularly susceptible to step size. The system becomes unstable when the step size is increased 
to 4 msec. A better way to control these types of models when using a fixed step algorithm is to set the 
maximum step size (MAXT) to control (i.e., SET MAX=0.001). In this case the step size will stay at this 
value (if NSTP=1) when the communication interval is changed, unless CINT is made less than MAXT, 
in which event the smaller value becomes the integration step size. 

The next run was chosen to illustrate the two types of line plots available by setting both CALPLT and 
STRPLT to true. When system variable CALPLT true, the plot is shown in Figure A6-8. Here the axes are 
drawn side by side and all three plots occupy the same area. The strip chart plot (STRPLT true) is shown 
in Figure A6-9. Each curve occupies a separate slot, normally two inches by five inches, stacked in the order 
given from the bottom. Notice the addition of the XTAG string on both line plots, which adds a unit 
specification to the time variable, T, along the x-axis. Since PRNPLT is still true, the printer plot of Figure 
A6-7 is obtained at the same time. This plot could have been suppressed by making PRNPLT false. 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSI... TRANSLATOR VERSION 1 LEVEL. 6F 81/07/10. 1.1.25.52. PAGE 



PROGRAM AIRCRAFT 


ARRESTING 


GEAR 










INTEGER 


NCASE 












" 





DEFINE TABLE FOR WATER SQUEEZER DRAG 


TABLE 


FYS, 1 


, 16 












/ -10.0 


,0.0 ,30.0 


60.0 




, 


120.0 




, 150.0 


, 180.0 , 210.0 


240.0 




, 


270.0 




, 2.82 . 


, 294 . , 306 . 


312.0 




, 


324.0 




, 350.0 














, 8.33 


,8.33 ,4.0 


1.6 




, 


5 . 2 




,' 5.2 


,6.6 ,8.3 


10. 7 




, 


16.0 




, 21.0 


, 28.0 ,41.0 


50 . 




, 


90.0 




, 90.0 


/ 










"-- - -■ 


■ — 


-DEFINE PRESET VARIABLES" 








CONSTANT 


Ml = 140.0 , M2 = 45.28 


M3 = 2 


>.o. 


.0 






, ki m: 


550.0 , K2 = 25300.0 , 


M = 12 


15. 









, NCASE 


= , TSTP ~ 9. 999 , 


XMX =•• 


1000.0 




, H = 12 


5.0 , SPEED = 250. 










CINTERVAL 


DL •--" 


. 10 










INITIAL 














NCASE 


NCASE i 1 


*"BUMP CASE NUMBER' 











" - - - — - TELL SYSTEM ABOUT TO PRINT FIVE LINES • 

LINES (5) 

WRITE (6, 200) SPEED, NCASE 
200. . FORMAT <//20X, 17HAIRCRAFT SPEED - , F6. 2, 3X, 8HRUN NO. ,13//) 
END *"0F INITIAL" 
DYNAMIC 
DERIVATIVE 

" COMPUTE SECOND DERIVATIVES" 

Y3DD = <FK2 - FD)/M3 

Y2DD =(2.0*FK1 - FK2)/M2 

XDD =-2.0*FKl*STH/Ml 

"- — - INTEGRATE FOR FIRST DERIVATIVES" 

Y3D = INTEG(Y3DD, 0.0) 

Y2D = INTEG<Y2DD, 0.0) 

XD = INTEG<XDD , SPEED) 

" — — INTEGRATE FOR POSITIONS" 

Y3 = INTEGCY3D, 0.0) 

Y2 = INTEG<Y2D, 0.0) 

X = INTEG<XD , 0.0) 

" - CABLE TENSION BECOMES ZERO WHEN SLACK" 

CAN NEVER GO NEGATIVE - SO USE POSITIVE 
DIFFERENCE FUNCTION " 

FK1 = K1*DIM(Y1, 2.0*Y2) 

FK2 = K2*DIM(Y2, Y3) 

. WATER SQUEEZER DRAG* 

FD = FY3<Y3)*Y3D**2 

. __ GEOMETRICAL RELATIONS" 

Yl = SQRT(X**2 + H**2) - H 

STH <= X/(H + Yl ) 
END **0F DERIVATIVE" 

. SPECIFY TERMINATION CONDITION" 

TERMT<T.GE.TSTP .OR. X.GE.XMX) 
END *"0F DYNAMIC" 
END **0F PROGRAM" 



Figure A6-2. Listing of Model Definition for Aircraft Arresting Gear Problem 



SET TITLE = "AIRCRAFT ARRESTING GEAR PROBLEM" 

S TCUPRN=72, DIS«9 *■ FORCE 3 COLUMN OUTPUT WIDTH " 

OUTPUT T, Y3DD, Y3D, Y3, FD, Y2DD, Y2D, Y2, FK2, XDD, XD, X 

, FK1, Yl, "NCI OUT" « 20 
PREPAR T, X, XD, XDD 

SET NGXPPL « SO, NGYPPL « 50, NSTP = 100 
SET SPEED = 200.0 $ START * PLOT X, XD, XDD 
SET SPEED = 290.0 $ START 

SET CALPLT » .TRUE. $"TURN ON CALCOMP PLOTS" 
S STRPLT«. T. , CALPLT^. T. 
PLOT " XT AG " « " ( SEC ) " , X , XD , XDD 
STOP 

Figure A6-3. Run-time Drive Commands for Aircraft Arresting Gear Problem 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 81/07/10. 11.26.29 



PAGE 



SET TITLE = "AIRCRAFT ARRESTING GEAR PROBLEM" 

S TCUPRN«72,niS=9 *" FORCE 3 COLUMN OUTPUT WIDTH " 

OUTPUT T, Y3DD, Y3D, Y3, FD, Y2DD, Y2D, Y2, FK2, XDD, XD, X 

, FK1, Yl, "NCIOUT" « 20 
PREPAR T, X, XD, XDD 

SET NGXPPL = 50, NGYPPL « 50, NSTP = 100 
SET SPEED =•• 200.0 * START * PLOT X, XD, XDD 



AIRCRAFT SPEED 



T 0. 

Y3 0. 

Y2D 0. 

XDD 0. 

FK1 0. 



EED - 200.00 RUN NO. 


1 




Y3DD 0. 


Y3D 


0. 


FD 0. 


Y2DD 


0. 


Y2 0. 


FK2 


0. 


XD 200.000000 


X 


0. 


Yl 0. 







T 2. 00000000 

Y3 96.2945828 

Y2D 45.8334561 

XDD-44. 4263306 

FK1 3380.28378 



Y3DD- 18. 0123073 
FD 7972.47469 
Y2 96.5954614 
XD 99. 1682231 
Yl 193.933842 



Y3D 45.9392902 

Y2DD- 18. 8087675 

FK2 7612.22854 

X 293.417443 



T 


4.00000000 


Y3DD- 


•6.57593866 


Y3D 


20.9752641 


Y3 


158.436671 


FD 


2461.01876 


Y2DD- 


•6.69116942 


Y2D 


20 . 9323673 


Y2 


158.528746 


FK2 


2329.49998 


XDD- 


■13.8850190 


XD 


43.5150304 


X 


424.248469 


FK1 


1013. 26192 


Yl 


317. 280186 






T 


6.00000000 


Y3DD- 


•2.88914008 


Y3D 


12. 1193707 


Y3 


190.313460 


FD 


1055.24285 


Y2DD- 


-2.88049125 


Y2D 


12. 1043815 


Y2 


190.352885 


FK2 


997.460045 


XDD 


-6.00098217 


XD 


24.9457250 


X 


490. 111926 


FK1 


433.515700 


Yl 


380.801048 






T 


8.00000000 


Y3DD- 


-1.45871043 


Y3D 


7. 98094072 


Y3 


209.944687 


FD 


528.472294 


Y2DD- 


•1. 45621945 


Y2D 


7. 97479974 


Y2 


209.964422 


FK2 


499.298085 


XDD- 


•3.01290723 


XD 


16.3712078 


X 


530. 447309 


FK1 


216.680234 


Yl 


419.976465 






T 


10.0000000 


Y3DD- 


-0.85442820 


Y3D 


5. 73461369 


Y3 


223. 460384 


FD 


308.364524 


Y2DD- 


•0. 85355226 


Y2D 


5.73175116 


Y2 


223.471897 


FK2 


291.275960 


XDD- 


•1.76086055 


XD 


11.7404810 


X 


558. 145554 


FK1 


126.313557 


Yl 


446.971555 







Figure A6-4. Run-time Control and Output Stream for Aircraft Arresting Gear Problem 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 
AIRCRAFT ARRESTING GEAR PROBLEM 



XIl B 0. 
XDD C -100.0000 
T XAXIS 



81/07/10. 11.2(5.2?. 




Figure A6-5. Plot of Displacement and its First and Second Derivatives for the Aircraft 

Arresting Gear Problem 
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ACSL RUN-TIME EXEC 
AIRCRAFT ARRESTING 



VERSION 1 LEVEL 
GEAR PROBLEM 



6M 



81/07/10. 11.26.29 



PAGE 



SET SPEED 



290.0 * START 



AIRCRAFT SPEED 



290 . 00 



RUN NO 



T 
Y3 


0. 
0. 


Y2D 


0. 


XDD 


0. 


FK1 


0. 


T 


2.00000000 


Y3 


128.365976 


Y2D 


44.9787007 


XDD- 


•60. 0703751 


FK1 


4447.80160 


T 


4.00000000 


Y3 


185.758816 


Y2D 


18.4579190 


XDD- 


•13.4898010 


FK1 


975.660354 


T 


6.00000000 


Y3 


213. 274391 


Y2D 


10.2910500 


XDD-- 


-5. 18935943 


FK1 


372.954133 


T 


8.00000000 


Y3 


229.892031 


Y2D 


6 . 72508436 


XDD- 


-2.55891936 


FK1 


183.361211 


T 


10.0000000 


Y3 


241.288925 


Y2D 


4 . 84067326 


XDD- 


-1.46891802 


FK.1. 


105.071665 


SET CALPLT = 


• .TRUE. *"TU 


S STRPLT^.T. 


,CALPLT=.T. 


PLOT "XTAG-^ 


: B <SEC>",X,XD,XDD 



Y3DD 0. 
FD 0. 
Y2 0. 

XD 290.000000 
Yl 0. 

Y3DD- 27. 0599278 
FD 10784.8237 
Y2 128.770862 
XD 93.2928284 
Yl 258.519263 



Y3DD- 
FD 
Y2 
XD 
Yl 



•6.47531783 
2372.55899 
185.847474 
38.0155459 
371 909380 



Y3DD -2. 51087770 
FD 909. 156899 
Y2 213.308341 
XD 21.0974966 
Yl 426.698649 



Y3DD- 
FD 
Y2 
XD 
Yl 



•1.24766712 
448.056336 
229.908754 
13.7553728 
459.857807 



Y3DD-0. 70081981 



FD 
Y2 
XD 



256.286240 
241. 298501 
9.88799079 



Yl 482.620095 



ON CALCOMP 



.OT 



Y3D 

Y2DD 0. 

FK2 0. 

X 0. 



Y3D 45.5412403 

Y2DD -29. 7708033 

FK2 10243.6252 

X 362.576923 



Y3D 

Y2DD- 

FK2 

X 


18.5078865 
6.44284292 
2243.05264 
480.930277 


Y3D 
Y2DD- 
FK2 
X 


10.3046452 
•2.49626943 
858.939345 
537. 351282 



Y3D 6.73035936 

Y2DD- 1.24515397 

FK2 423. 102993 

X 571.343727 



Y3D 4. 84281703 

Y2DD -0.70950784 

FK2 242. 269844 

X 594.623562 



Figure A6-6. Second Run - Aircraft Arresting Gear Problem 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 
AIRCRAFT ARRESTING GEAR PROBLEM 

X A 0. 

XD B 0. 

XDD C -400.0000 

T XAXIS 
0. 



81/07/10. 11.2(6.2?. 




EHD DISSPLA — 



2792 VECTORS GENERATED IN 



2 PLOT FRAMES. 



2362 WORDS TABLE SPACE USED 

4.900 CP SECONDS EXECUTION TIME. 



Figure A6-7. Printer Plot to Match Line Plots in Next Two Figures 
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Figure A6-8. Line Plot Obtained with CALPLT = -TRUE, of Displacement, Velocity and 
Acceleration from the Aircraft Arresting Gear Problem 
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Figure A6-9. Line Plot Obtained with STRPLT = .TRUE, of Displacement, Velocity and 
Acceleration from the Aircraft Arresting Gear Problem 
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7. LONGITUDINAL STUDY 

The equations describing the motion of an aircraft in three degrees-of-freedom in a longitudinal plane 
are given below: 

Velocity 

mV = T cos a - D - W sin 7 
where 

m = W/32.2 slugs 

D = qSC D lbs 

q = 0.5 pV 2 lbs/sq ft 

Cd = Cdo + CdoP + Coae '°e' 

Flight Path 

mVY = L - W cos 7 + T sin a 



where 



L = qSC L lbs 

C L = C LO + C La a + C Loe <r € + (c/2V) (C L ^a + C l q9) 



Pitch 



where 



l y 6 = M 



M = qScC M ft-lbs 

Cm = C MO + C Ma a + C Mae ff e + (c/2V) (C M a« + C M ^i 

Angle of Attack 

a = 6 - y 

Position 

h = V sin y 
x = V cos 7 

Constants 

T = 2,000 lb S = 6,000 ft 2 

I y = 27 x 10 6 slug ft 2 W = 500,000 lb 

p = 0.0023 slugs/ft 3 c" = 30 ft 
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Aerodynamic Coefficients 

C DO = 0.14 
C Da = 0.63/rad 
C Dae = 0.003 /rad 



C LO = 1.1 
C La = 5.2/rad 
C Lae = 0.36/rad 
C L( i = 2/rad/sec 
C l q = 5.5/rad/sec 



C M o = 0.05 
C Ma = 0.2/rad 
C MCTe = 1.4/rad 
C Ma = 8/rad/sec 
C M § = 22/rad/sec 



Initial Conditions 

V(0) = 200 ft/sec 

h(0) = 1500ft 

8 (0) = rad/sec 

This example was chosen to illustrate an iteration to establish correct initial conditions (trim) and 
solution of an implicit loop. 

Values of 0(0), 7(0) and a e are to be computed so that the aircraft is flying in a trimmed condition, i.e., 
the angular accelerations 8, flight path rate 7 and longitudinal acceleration V should all be zero. It is more 
usual to adjust throttle setting as thrust, T, to maintain a given flight path angle rather than the other way 
about. 

This iteration is mechanized (see program listings, Figure A7- 1 and A7-2) by choosing starting values 
in the INITIAL section for 6(0), 7(0) and cr e (zero seems good enough) and then in the DYNAMIC, after 
the first evaluation of derivatives, checking if a weighted mean square error 

E = (V) 2 + (20 0) 2 + (100 y) 2 

is less than a maximum allowable error (0.1). 

If not the initial guess is corrected by 

7(0) = 7(0) + 0.02 V 

(9(0) = 0(0) - I.O7 

<r e (0) =er € (0) +2.0 6 

A more precise (and faster) iteration would calculate the derivative of the error vector (V, 7, 6) with 
respect to the control vector (7, 6, a ) three by three Jacobian matrix resulting - say (J) is then inverted and 
the new control vector is given by 

(y, e, a e )? = (y, 6, * e )? - J^vxm 

However, the simple iteration given suffices for this fixed example. 

Once convergence has been satisfied, then the variable START is set false and the error check is never 
examined again. Note that in order to recompute the derivatives the program cycles from the DYNAMIC 
section back to the INITIAL section. The integration routine is set up and derivatives calculated at the 
transition from INITIAL to the DYNAMIC. 

The other feature is the use of the IMPLicit operator to calculate angle-of-attack rate. Angle-of-attack 
rate is the difference between body rate and flight path rate. Flight path rate depends on lift which in turn 
is dependent on the coefficient C L . This coefficient includes angle-of-attack rate so forming an algebraic or 
implicit loop. To avoid the sorting problem the IMPL operator is used so 

a = IMPL(0, 0.001, 10, ef, 8 - 7, 0.01) 
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This means take a first guess for a to be 6 (body rate). Then iterate using Newton-Raphson until differences 
in successive values of a are less than 0.0001. Try at most ten cycles and set ef (error flag) nonzero if this 
number is exceeded. This iteration is a time consuming business and has to be performed at each derivative 
evaluation. In this case it would have been much better to solve algebraically for a before writing the model 
equations - since the equations are linear, this would have been possible. On the other hand, if C L had been 
given in functional form as a table, i.e., C L (a, a) then the implicit operator would have had to be used. 

The output stream from executing the model is shown in Figure A7-3 through A7-7. Output is estab- 
lished at every ten communication intervals and a similar set of variables PREPARed for later plotting. The 
START initiates the run and the iteration is reported in the next eight lines of output during which the error, 
ERR, is reduced from 55.4 to 0. 1 . Then the run starts and the block of OUTPUT variables is written out every 
0.5 seconds. At the end of the run (TMX=6.49 seconds), two PRINT statements are used in order to list 
selected variables, the first at every four communication intervals (0.2 seconds) and the second at every eight 
(0.4 seconds). At the bottom of Figure A7-5 a strip plot is set up (STRPLT=.T.); the scale factor is reduced 
to a half (PSFSPL=0.5); the x-axis length is increased to ten inches (XINSPL=10.0) and the distance 
between tick marks is increased to two inches (XTISPL=2.0). With the scale factor of a half that keeps the 
x-axis length to five inches but reduces the strip width to one inch, allowing seven variables to be stacked on 
one frame. The first PLOT command only changes the 'XHF value and ensures that the plot will cover the 
full extent of the x-axis. The second PLOT actually draws the picture of Figure A7-8. If the first PLOT 
command had not been used, normal rounding would have made the x-axis run from zero to ten so wasting 
35% of the area. Of course in this case the tick marks are not whole numbers but that's a user choice between 
the two ways of forming the plot. We would prefer maximum area utilization. 

The last sequence compares the standard Runge-Kutta fourth order integration routine with the Adams- 
Moulton variable order, variable step. The OUTPUT list is cleared ('CLEAR') and reestablished as TIME, 
CIOITG (current integration order) and CSSITG (current step size) - printing out every thirty communica- 
tion intervals. The SPARE $ START $ SPARE sequence runs the simulation with the default algorithm 
(IALG = 5, Runge-Kutta fourth order) and shows an elapsed central processor time of about 6.57 seconds. 
Then IALG is changed to one (Adams-Moulton) and the program run again. The integration order rises to 
four and the step size to a maximum of 0.0601 seconds and since this is greater than the communication 
interval (0.05 seconds) it won't change from that value. Note that the actual step size will be equal to the 
communication interval value of 0.05 seconds, since these points are needed for data recording. The current 
step size variable CSSITG contains the step size the integration algorithm would like to take, in the absence 
of any other constraints such as an upcoming event or communication interval which may reduce it from this 
value. From the report at the end of the Adams-Moulton variable step run (Figure A7-6) it can be deduced 
that 6 (TH) was the controlling integrator and the minus sign (-) indicates that the relative error never 
exceeded the absolute error specified. The allowable error was thus set at 0.0001. From the elapsed time listed 
of about 0.73 seconds, the Adams-Moulton integrator was nearly ten times faster. At the bottom of Figure 
A7-6, the results of the Adams-Moulton integrator run are printed out at one second intervals to be compared 
with the same variables printed in Figures A7-4 and A7-5. Agreement is within two or three decimal places. 

In Figure A7-7 the use of the command ANALYZ is shown which prints out the Jacobian and its eigen 
values. The largest eigen value is 0.82 per second, which implies a rather slowly varying system and in actual 
fact promises good results with integration step sizes of the reciprocal of this value or about one second, a 
further factor of twenty increase in solution speed. In this case the constant constraint on the step size is the 
data recording interval chosen to produce acceptable plots. 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL. TRANSLATOR VERSION 1 LEVEL 6F 8:1/07/13. 15.18.12. PAGE 1 

PROGRAM AIRCRAFT LONGITUDINAL STABILITY STUDY 

INITIAL 



-DEFINE ALL PRESET VARIABLES' 



CONSTANT 



CONSTANT 



CONSTANT 
CINTERVAL 



VARIABLE 
LOGICAL 



T = 2000 . 


> 


IY -••= 27.0E6 


, RO = 2. 3E -3 


S = 6000.0 


i 


W * 500000.0 


, CB = 30 . 


G * 32.2 








CDZ * 0. 14 


> 


CDAL = 0. A3 


, CDDE = 0.003 


CLZ = 1 . 1 


> 


CLAL = 5.2 


, CLDE = 0. 36 


CMZ *-0.5 


> 


CMAL =-0.2 


, CMDE = -l .4 


CLAD = 2. 


i 


CLTD = 5. 5 


> Kl = 0. 02 


CHAD *-8.0 


> 


CMTD =-22. 


, K2 =-1.0 


K3 = 2.0 


> 


ERMX = 0. 1 


, TMX = 6.49 


VZ = 200. 


, 


HZ = 1500. 


, OZ = 0. 


XZ = 0.0 


> 


TZ =0.5 




CINT = 0.05 








CHANGI 


: : NAME OF INDEPENDENT VARIABI 


TO 


AVOID NAME CONFL 


ICT" 


TIME =0.0 








START 









MASS 



W/6 



GAZ 


= 0.0 


THZ 


= 0.0 


DLZ 

a __„. „ 


= 0.0 


START 


= .FALSE. 


11. .CONTINUE 



-NEED MASS FROM WEIGHT IN LBS" 
SET INITIAL GOES FOR INITIAL CONDITIONS' 



-START WILL BE MADE TRUE WHEN ITERATION 1 
CONVERGES" 



END $ B 0F INITIAL' 



DYNAMIC 
DERIVATIVE 



DLE 



AL 

■ _.. 

CD 

B 

CL. 

B ._. 

QP 

ii 

D 



•THE TRANSITION FROM INITIAL TO DYNAMIC " 
TRANSFERS ALL. INITIAL CONDITIONS TO THE " 
STATE VARIABLES AND EVALUATES THE CODE " 
IN THE DERIVATIVE SECTION ONCE " 



- FIN DEFLECTION IS KICKED TO EXCITE SYSTEM" 

= 0. 1*STEP<TZ) + DLZ 
;__ „._._. -.-.ANGLE OF ATTACK" 

= TH -- GA 

—DRAG COEFFICIENT" 

= CDZ + CDAL*AL + CDDE*ABS<DLE) 
— • L I FT COEFF I CI ENT " 

= CLZ + CLAL*AL + CLDE*DLE + (CB/<2*V> )*<CLAD*ALD ... 

+ CLTD*Q) 
DYNAMIC PRESSURE" 

= 0.5*R0*V**2 

DRAG AND LIFT" 

= QP*S#CD 



Figure A7-1 . Listing of Model Definition for Aircraft Longitudinal Study 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 81/07/13. 15.18.12. PAGE 2 

L = QP*S*CL 

M ••- -- ~ FLIGHT PATH RATE * 

GAD = (L -- W*COS<GA) + T*SIN< AL) )/<MASS*V) 

. LONGITUTINAL VELOCITY RATE ■ 

VD = (T*COS(AL) - D - W*SIN(GA))/MASS 

" - - - - PITCH MOMENT COEFFICIENT" 

CM = CMZ + CMAL*AL + CMDE*DLE + <CB/<2*V) )*<CMAD*ALD 
+ CMTD*G) 

PITCHING MOMENT " 

M = QP*S*CB*CM 

" - -NEED PITCH RATE DERIVATIVE EXPLICITLY ■ 

FOR ITERATION ■ 
QD = M/IY 

"•— — -- — ■-- IMPLICIT LOOP FOR ANGLE OF ATTACK RATE" 

ALD * IMPL( 0, 0.0001, .1.0, EF, Q - GAD, 0.01) 

Q = INTVC(GD, QZ> *" PITCH RATE " 

TH « INTEG<«, THZ) $ " PITCH ANGLE " 

V = INTVC(VD, VZ> *' VELOCITY " 

GA « INTVC(GAD, GAZ)$" FLIGHT PATH ANGLE " 

H « INTEG<V*SIN<GA), HZ) * " HEIGHT " 

X « INTEG(V*COS<GA), XZ) $■ HORIZONTAL DISTANCE TRAVELLED " 

END ♦ "OF DERIVATIVE" 

" — - - -IF ITERATION CONVERGED " 

IF (START) GO TO Dl 

" - -- -- WEIGHTED ERROR FROM TRIM" 

ERROR = VD**2 + ( 20 . 0*QD ) **2 + ( 1 00 . 0*GAD ) **2 

" -- — - - — -IF WITHIN TOLERANCE " 

START = ERROR . LE. ERMX 

■ „..„ COMPUTE NEW TRIAL VALUES " 

GAZ « GAZ + K1*VD 

THZ = THZ + K2*GAD 

DLZ « DLZ + K3*8D 

■ . „ _.._. PRINT ITERATION INFORMATION" 

LINES<1>*" INFORM SYSTEM ABOUT TO PRINT ONE LINE " 

PRINT 99, GAZ, THZ, DLZ, ERROR 
99. .FORMAT <5H GAZ ,E12.4,5H THZ ,E12.4,5H DLE ,E12.4,5H ERR ,F10.1) 

■~ - - RETURN TO INITIAL REGION TO RESTART" 

THE INTEGRATION ALGORITHM" 

GO TO II 
Dl. .CONTINUE 

" — EXPRESS STOPPING CRITERIA " 

TERMT(TIME.GE.TMX) 

END *"QF DYNAMIC" 

END *"0F PROGRAM" 

Figure A7-2. Listing of Model Definition for Aircraft Longitudinal Study 
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ACSL RUN-TIME EXEC VERSION .1 LEVEL 6M 81/07/13. 15.19.22 



PAGE 



SET TITLE * » LONGITUDINAL AIRCRAFT STABILITY STUDY' 



S TCWPRN=80 *" FORCE 3 
OUTPUT TIME, M, Q, VD, 
PREPAR TIME, M, 0, VD, 
SET NSTP =10 
START 

GAZ ~. 4719E-01 THZ 
GAZ -.8892E-01 THZ 
GAZ --. 1183E+00 THZ 
GAZ -. 1342E+00 THZ 
GAZ ~. 1397E+00 THZ 
GAZ -■. 1391E+00 THZ 
GAZ -. 1362E+00 THZ 
GAZ -. 1330E+00 THZ 
TIME 0. 

VD 0. 11209712 
X 0. 

GA~0. 13304999 
ALD 4.7803E-04 

TIME 0.50000000 

VD 0. 11389061 

X 99. 1287839 

GA-O. 13324424 

ALD 2.4213E-04 



COLUMN OUTPUT WIDTH " 

GAD, DLE, X, V, TH, GA, AL, EF, ALD, "NCI OUT 1 

GAD, DLE, V, TH, GA, AL 



. 624 IE- 


-01 DLE 


•••• . 3296E+00 


ERR 






55 . 4 


. 8499E- 


-01 DLE 


-•.3750E+00 


ERR 






9. 7 


. 7919E 


-01 DLE 


-.3789E+00 


ERR 






'"i c; 

A.. . J 


. 6226E- 


-01 DLE 


-.3782E+00 


ERR 






3.5 


4547E- 


•01 DLE 


~. 3780E+00 


ERR 






2.9 


3372E- 


-01 DLE 


-.3785E+00 


ERR 






1.4 


x^761E" 


•01 DLE 


-.3791E+00 


ERR 






.4 


2573E- 


-01 DLE 


-.3796E+00 


ERR 






. 1 




M -4483 


. 15766 




Q 


0. 






GAD-4.7803E-04 


DLE- 


-0. 


37964391 




V 200. 


000000 




TH 


0. 


02573051 




AL 0. IF 


878051 




EF 


0. 






M-2709 


. 32654 




Q- 


-6. 


5554E-05 




GAD -3 . 0769E--04 


DLE- 


-0. 


37964391 




V 200. 


056557 




TH 


0. 


02571276 




AL 0. IF 


895699 




EF 


0. 





<10 



TIME 1.00000000 

VD 0. 15529338 

X 198.291893 

GA-O. 13252507 

ALD 0.01760063 



M-8 19443. 768 

GAD- 4 . 6372E -04 

V 200. 119570 

AL 0. 15346158 



(3-0.01806435 
DLE -0.27964391 
TH 0. 02093651 
EF 0. 



TIME 


1 . 50000000 


M- 


-588537.231 


VD 


0. 32194985 


GAD- 


•0. 00587615 


X 


297.491969 


V 


200 . 233657 


GA- 


•0.13405542 


AL 


0. 14255376 


ALD- 


-0.02510101 







Q-0. 03097716 
DLE-O. 27964391 
TH . 00849834 
EF 0. 



TIME 2.00000000 

VD 0. 60696380 

X 396 . 734299 

GA-O. 13852553 

ALD -0.02822535 



M-425184.786 

GAD-O. 01205182 

V 200.461263 

AL 0. 12908451 



Q-0. 04027717 
DLE-O. 27964391 
TH -0.00944102 
EF 0. 



TIME 2.50000000 

VD 0. 99482728 

X 496.045171 

GA-O. .14609914 

ALD -0.02882471 



M~ 308869 . 266 

GAD-O. 01819030 

M 200.857767 

AL 0. 11474580 



Q-0. 04701386 
DLE-O. 27964391 
TH-O. 03135335 
EF 0. 



TIME 3.00000000 

VD 1 . 46906702 

X 595. 470475 

GA-O. 15663296 

ALD-O. 02807999 



M-225422. 635 

GAD-O. 02383891 

V 201.470484 

AL 0. 10048216 



Q-0. 05191891 
DLE-O. 27964391 
TH-O. 05615080 
EF 0. 



Figure A7-3. Run-time Drive Commands and Output Stream for Aircraft Longitudinal Study 
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TIME 


3.50000000 


M- 


-165020.639 


YD 


2.01355780 


GAD- 


-0.02876969 


X 


695.072274 


V 


202.338536 


GA- 


-0. 16981764 


AL 


0.08676447 


ALU- 


-0.02673479 






TIME 


4.00000000 


M- 


-120892.038 


VD 


2.61327924 


GAD- 


-0.03289737 


X 


794.925011 


V 


203.493238 


GA- 


-0. 18526832 


AL 


0.07377233 


ALD- 


-0.02523344 






TIME 


4.50000000 


M- 


-88350.2552 


VD 


3.25474200 


GAD- 


-0.03622554 


X 


895. 112100 


V 


204.958763 


GA- 


-0.20258148 


AL 


0.06151442 


ALD- 


-0.02382766 






TIME 


5.00000000 


M- 


-64151.8200 


VD 


3.92621180 


GAD- 


-0.03881095 


X 


995.723088 


V 


206.752971 


GA- 


-0.22136990 


AL 


0.04990732 


ALD- 


-0.02264339 






TIME 


5.50000000 


M- 


-46048.3669 


VD 


4.61780037 


GAD- 


-0.04074011 


X 


1096.85137 


V 


208.888317 


GA- 


-0.24128298 


AL 


0.03882619 


AI..D- 


-0.02172656 







0-0.05550448 
DLE-O. 27964391 
TH-O. 08305317 
EF 0. 



0-0.05813081 
DLE-O. 27964391 
TH-O. 11149598 
EF 0. 



0-0.06005320 
DLE-O. 27964391 
TH-O. 14106705 
EF 0. 



0-0.06145434 
DLE-O. 27964391 
TH-O. 17146258 
EF 0. 



0-0.06246668 
DLE-O. 27964391 
TH-O. 20245679 
EF 0. 



TIME 6.00000000 

YD 5.32146229 

X 1198.59233 

GA-O. 26201738 

ALD-O. 02107412 



M-32476.6366 

GAD-O. 04211360 

V 211.372774 

AL 0.02813654 



0-0.06318772 
DLE-O. 27964391 
TH-O . 23388084 
EF 0. 



TIME 6.50000000 

VD 6.03092082 

X 1301.04170 

GA-O. 28332137 

ALD-O. 02065650 



M-22335,8613 

GAD-O. 04303576 

V 214.210737 

AL 0.01771313 



0-0.06369065 
DLE-O. 27964391 
TH-O. 26560825 
EF 0. 



" MAKE COLUMN PRINT OF SELECTED VARIABLES FROM PREPAR LIST 
PRINT "NCIPRN"=4, TIME, M, 0, VD, GAD 



LINE 




TIME 


M 









VD 




GAD 





0. 




-4483. 1577 


0. 




0. 


1120971 


-4. 


780E-04 


4 


0. 


2000000 


-3691 . 5678 


-3. 


020E-05 


0. 


1129881 


-4. 


035E-04 


8 


0. 


4000000 


-3012.0301 


-5. 


497E-05 


0. 


1136435 


-3. 


377E-04 


1 /£. 


0. 


6000000 


-1.072E+06 


-0. 


0041394 


0. 


1156370 


0. 


0024458 


16 


0. 


8000000 


-936967.82 


-0. 


0115693 


0. 


1247060 


0. 


0012126 


20 


1. 


0000000 


-819443.77 


-0. 


0180643 


0. 


1552934 


-4. 


637E-04 


24 


1. 


2000000 


-717322.81 


-0. 


0237472 


0. 


2068592 


-0. 


0024664 


28 


1. 


4000000 


-628518.65 


-0. 


0287242 


0. 


2786918 


-0. 


0046991 



Figure A7-4. Output Stream from Aircraft Longitudinal Study 
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LINE 

32 

36 

40 

44 

48 

52 

56 

60 

64 

68 

72 

76 

80 

84 

88 

92 

96 

100 

104 

108 

112 

116 

120 

124 

1 £.8 

PRINT 



TIME 
1 . 6000000 
1.8000000 
2.0000000 
2.2000000 
2.4000000 
2.6000000 
2.8000000 
3.0000000 
3.2000000 
3.4000000 
3.6000000 
3.8000000 
4.0000000 
4.2000000 
4.4000000 
4.6000000 
4.8000000 
5.0000000 
5.2000000 
5.4000000 
5.6000000 
5.8000000 
6.0000000 
6.2000000 
6.4000000 



"NCIPRN"=8,TI 



M 

-551229.33 - 

-483899.01 - 

-425184.79 - 

-373927.76 - 

-329128.86 - 

-289923.07 - 

-255568 . 70 - 

-225422.63 - 

-198931.41 • 

-175617.33 - 

-155068.31 •■ 

-136928.80 - 

-120892.04 •- 

-106693.28 - 

-94104.044 - 

-82927.073 - 

-72992.043 - 

-64151.820 - 

-56279.255 - 

-49264.402 - 

-43012.123 - 

-37440.018 - 

-32476.637 - 

-28059.936 - 

-24126.843 - 
ME,DLE,TH,GA, 




0.0330870 
-0.0369151 
0.0402772 
-0.0432326 
. 0458328 
-0.0481223 
•0.0501399 
-0.0519189 
•0.0534885 
0.0548739 
0.0560970 
-0.0571771 
-0.0581308 
-0.0589727 
0.0597154 
0.0603703 
-0.0609470 
0.0614543 
•0. 0618998 
0.0622902 
•0.0626315 
-0.0629291 
0.0631877 
0.0634116 
-0.0636046 
AL 



VD 
0.3699518 
0.4797075 
0.6069638 
0.7506856 
0.9098160 
1 . 0832922 
1 . 2700565 
1.4690670 
1.6793048 
1 . 8997806 
2. 1295392 
2 . 3676639 
2.6132792 
2.8655533 
3. 1236997 
3.3869786 
3 . 6546976 
3.9262118 
4. 2009243 
4 . 4782854 
4.7577925 
5.0389888 
5.3214623 
5.6048448 
5.8888103 



GAD 

-0.0070821 

-0. 0095506 

-0.0120518 

-0.0145433 

-0.0169912 

-0.0193691 

-0.0216568 

-0.0238389 

-0.0259047 

-0.0278466 

-0.0296604 

-0.0313440 

-0.0328974 

0343223 

0356217 

0367996 

0378608 

•0.0388110 

-0. 0396559 

-0.0404021 

0.0410559 

0.0416242 

0. 042106 

0.0425308 

-0.0428825 



LINE 

8 
16 
24 
32 
40 
48 
56 
64 
72 
80 
88 
96 
104 
112 
120 
1<&8 
S STRPLT= . T . , PRNPLT= . F . , PSFSPL 
PLOT "XHI"=TMX *" PLOT NOTHING 
PLOT TH, AL,GA,GAD,G,M,DLE 

• CHANGE OUTPUT LIST FOR TIME TRIAL BETWEEN RK4 AND ADAMS 
OUTPUT "CLEAR', TIME, CIOITG, CSSITG, 'NCI0UT , =30 
SPARE * START * SPARE 

ACCUMULATED CP TIME 21.259 SEC. ELAPSED CP TIME 21.25 
GAZ --.4719E-01 THZ . 6241E-01 DLE -.3296E+00 ERR 
GAZ -.8892E-01 THZ . 8499E-01 DLE -.3750E+00 ERR 



TIME 
0. 

0.4000000 
0.8000000 
1.2000000 
1.6000000 
2.0000000 
2.4000000 
2.8000000 
3.2000000 
3.6000000 
4.0000000 
4.4000000 
4.8000000 
5.2000000 
5 . 6000000 
6.0000000 
6.4000000 



DLE 
-0.3796439 
-0.3796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 
-0.2796439 



TH 

0.0257305 

0.0257188 

0.0239144 

0.0167427 

0.0052940 

-0.0094410 

-0.0267104 

-0.0459412 

-0.0666948 

-0.0886336 

-0. 1114960 

-0. 1350784 

-0. 1592214 

-0. 1837990 

-0.2087118 

-0.2338808 

-0.2592434 



GA 
-0. 1330500 
-0. 1332120 
-0. 1326063 
-0. 1328135 
-0. 1347031 
-0. 1385255 
-0. 1443399 
-0. 1520815 
-0. 1616093 
-0. 1727394 
-0. 1852683 
-0. 1989889 
-0.2137009 
-0.2292183 
-0.2453730 
-0.2620174 
-0.2790253 



=0.5, XINSPI.-10. 0, XTISPD 



AL 
1587805 
1589308 
1565207 
1495563 
1399971 
1290845 
1176295 
1061403 
0949145 
0841059 
0737723 
0639104 
0544796 
0454193 
0366612 
0281365 
0197819 



BUT ESTABLISH FULL RANGE FOR SCALE " 

MOULTON • 



SEC. 



9. 7 



Figure A7-5. Output Stream from Aircraft Longitudinal Study 
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GAZ 
GAZ 
GAZ 
GAZ 
GAZ 
GAZ 



•. 1183E+00 
■•. 1342E+00 
•. 1397E+00 

. 1391E+00 
•. 1362E+00 
•. 1330E+00 

TIME 0. 



THZ 
THZ 
THZ 
THZ 
THZ 
THZ 



TIME 
TIME 
TIME 
TIME 
TIME 

ACCUMULATED 

SET IALG « 1 

START * SPARE 

GAZ 

GAZ 

GAZ 

GAZ 

GAZ 

GAZ 

GAZ 

GAZ 



.4719E 
. 8892E 
. 1183E+00 
. 1342E+00 
. 1397E+00 
. 1391E+00 
. 1362E+00 
. 1330E+00 
TIME 0. 



1 . 50000000 
3.00000000 
4 . 50000000 
6 . 00000000 
6. 50000000 
CP TIME 27 
*■ TRY ADAM 
$" COMPARE 
•01 THZ 
•01 THZ 
THZ 
THZ 
THZ 
THZ 
THZ 
THZ 



7919E-01 DLE 

6226E-01 DLE 

4547E-01 DLE 

3372E-01 DLE 

276 IE -01 DLE 

2573E-01 DLE 

CIOITG 

CIOITG 

CIOITG 

CIOITG 

CIOITG 

CIOITG 

.829 SEC. ELAP 

S-MOULTON INTE 

TIMES " 
. 6241E-01 DLE 
. 8499E-01 DLE 
. 7919E-01 DLE 
. 6226E-01 DLE 
. 4547E-01 DLE 
. 3372E-01 DLE 
.276 IE -01 DLE 
. 2573E-01 DLE 



TIME 
TIME 
TIME 
TIME 
TIME 



1. 
3. 
4. 
6. 
6. 



COUNT 
MINUS 



OF 
(•-• 



TIME* 
REL 



50000000 
00000000 
50000000 
00000000 
50000000 

■s STATE CONTROLLED STEP S 
ERR ALWAYS 



CIOITG 
CIOITG 
CIOITG 
CIOITG 
CIOITG 
CIOITG 



37B9E+00 
3782E+00 
37B0E+00 
3785E+00 
3791E+00 
379AE+00 



4 

4 

4 
SED CP TIME 
ORATION " 

~.3296EK>0 
•••• . 3750E+00 
••-. 3789E+00 
-• . 3782E+00 
•-.3780EI00 
- . 3785E+00 
•-.3791E100 
•-. 3796E+00 
1 
3 
3 
4 
4 
4 
IZE 



GA PC FAIL 

H PC FAIL 

Q PC FAIL 

TH PC FAIL 

M PC FAIL 

X PC FAIL 

ACCUMULATED CP TIME 28 

PR INT ■ HC I PRN M =20 , T I ME , M 



BELOW ABS ERR 

ERR CONTROL 15- 

ERR CONTROL 

ERR CONTROL 7- 

ERR CONTROL 110- 

ERR CONTROL 

ERR CONTROL 10 

.557 SEC. ELAPSED CP 

, G, VD,GAD 



ERR 2 . 5 
ERR 3 . 5 
ERR 2.9 
ERR 1 . 4 
ERR . 4 

ERR . 1 

CSSITG 0.00500000 
CSSITG 0.00500000 
CSSITG 0.00500000 
CSSITG 0.00500000 
CSSITG 0.00500000 
CSSITG 0.00500000 
6. 570 SEC. 



ERR 

ERR 

ERR 

ERR 

ERR 

ERR 

ERR 

ERR 

CSSITG 

CSSITG 

CSSITG 

CSSITG 

CSSITG 

CSSITG 



9 

x.. . 

3 



0.005 
. 060 
. 060 
0.060 
. 060 
. 060 



9 

4 

4 

1 
00000 
12383 
12383 
12383 
12383 
12383 



TIME 



. 728 SEC. 



LINE 



20 

40 

60 

80 

100 

120 



TIME 



1 . 0000000 
2 . 0000000 
3 . 0000000 
4 . 0000000 
5 . 0000000 
6 . 0000000 



M 
-4483. 1577 
-818960.30 
-424940.72 
-225297.56 
-120825.69 
-64115.362 
-32456.280 



G 
0. 

•0.0180910 
•0.0402911 
•0.0519262 
•0.0581347 
•0.0614564 
•0.0631888 



0. 
0. 
0. 
1. 



MD 
1120971 
1554642 
6075197 
4699101 
6143087 
9273439 
3226369 



-4 
~4 
-0 
-0 
-0 
-0 
-0 



GAD 
780E-04 
70 IE •04 
0120617 
0238476 
0329036 
0388147 
0421155 



Figure A7-6. Output Stream from Aircraft Longitudinal Study 
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ANALYZ " FREEZE " =X, "JACOB" i "EIGEN" 
ROW VECTOR NAMES 

GA 1 H 2 3 

TH 4 V 5 

COLUMN VECTOR NAMES 

Z 09985 2 OD 3 

VD 5 

ROWS ACROSS, COLUMNS DOWN 

0. 0. 0493329 

. . 

0. -0.7293217 

0. 1.0000000 

0. 0. 

COMPLEX EIGEN VALUES IN ASCENDING ORDER 
10. . 

2 0. 01093535 0. 

3 -0. 11219790 0. 

4 -0 . 36600676 . 

5 -0. 82152364 0. 

STOP 



Figure A7-7. Output Stream from Aircraft Longitudinal Study 



GAD 


1 


Z09986 


4 


MATRIX ELEMENTS 




1 -0.5305362 




2 205.67325 




3 -0.0341951 




4 0. 




5 -18. 067358 





0. 


4890637 


0. 


0011434 


0. 




-0 . 


2795804 


0. 


0260218 


3. 


747E-05 


0. 




0. 




•1/ 


?.. 848579 


-0 . 


0289350 



Don't be misled by the ratio of execution for Runge-Kutta to Adams-Moulton. The artifically small step 
size chosen arbitrarily for the RK4 algorithm unfairly penalizes the comparison. In actual tests with typical 
non-linear systems, the second order Runge-Kutta method (IALG=4) did best in terms of CP seconds per 
simulated second. The penalty is that the user must choose the step size, normally by experimentation, but 
sometimes by familiarity with the model. As mentioned above, a good rule of thumb is to make the integration 
step size (MAXT) equal to the smallest time constant in the model. Of course if the controlling time constants 
change significantly, then the variable step algorithms are called for. Stiff systems with fast initial transients 
should use integration algorithm two (IALG=2). 
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Figure A7-8. Strip Plot of Selected Variables from Aircraft Longitudinal Study 
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8. PHYSBE 

A benchmark simulation model has been described* in order to demonstrate the different methods of 
solving simulation problems. Called PHYSBE, for physiological simulation benchmark experiment, this 
system models the blood flow around a human body, driven by two pumps - the right and left ventricles in 
the heart. Figure A8-1 shows the interconnection of the various components of the system which are to be 
considered as large bags or balloons that can be filled with blood. The characteristic is that the more blood 
that is forced in, the higher the pressure. Valves exist between the vena cava (VC) and the right ventricle (RV); 
the right ventricle and the lungs (LN); the lungs and the left ventricle (LV), and the left ventricle and the 
aorta (AO). These valves only allow blood flow in the forward direction. 

The blood is driven around the loop by changing the compliance of the right and left ventricles as a 
function of time, so modeling the squeezing of the blood in the chambers by the heart muscle as it contracts 
and releases. Figure A8-2 shows this reciprocal compliance as a function of time; this function is repeated 
every second as the heart beats. Each lump contains mass balance and heat balance constraints which are 
described by the following equations. 

The assumptions made are: 

1 ) Physical parameters of the system are linear. 

2) Blood flow within each area is influenced only by: 

a) Inlet Pressure 

b) Inflow Resistance 

c) Compliance (Volume/Unit Pressure) 

d) Outflow Resistance 

e) Outlet Pressure 

3) There is no resistance to blood flow within areas. 

4) All endogenous heat will be absorbed by the blood and conducted by the blood. 

5) Specific heat of blood and all body components is unity. 

6) Temperature change within the arteries, ventricles, and great veins is negligible. 



* McLeod, J., "PHYSBE: A Physiological Simulation Benchmark Experiment", SIMULATION 1. pp. 
324-329, 1966. 
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Figure A8-1 . Interconnection of Lumps to Form Blood Distribution System 
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Figure A8-2. Reciprocal Compliance or Spring Constant (Pressure per Unit Volume) for 

Heart Chambers 
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Figure A8-3 shows the schematic representation of the mass and heat flow within each lump. Note the 
XX is to be replaced by the two character mnemonic when referring to one of the nine individual lumps. The 
input flow rate is given by the pressure differential and input resistance 

DYYI — PXXI — PXX 

FXXI RXXI 

Pressure in the bag is volume by compliance 
pvv - VXX 

pxx " cxx 

Outlet flow rate is given by the pressure differential and output resistance 
PXX - PXXO 



FXXO = 



RXXO 



The blood volume is the integrated mass flow rate 

VXX = r (FXXI - FXXO) dt + VXXZ 
Heat (enthalpy) flow in is 

QXXI = FXXI * TXXI 
Temperature is total enthalpy in lump by mass. 

TXX = HXX/WXX 
Heat flow out is 

QXXO = FXXO * TXX 
Heat dissipated to surroundings 

QXXB = K * AXXO * (TXX - TA) 
and an accumulated heat is 

HXX = f T (QXXI - QXXO + QXXE) dt + HXXZ 

Jo 
Now the macro is implemented by defining the macro name and identifying the substitutable parameter, 

i.e., 

MACRO LUMP (X) 

identifies X as a substitutable parameter. 

To make up the input flow equation, the following statement is used (-» implies concatenation) 

F— X— O = (P— X— I - P— X)/R-*X— I 

which means 'F' concatenated with the argument, concatenated with an 'O', etc. When the macro is invoked 
to describe the trunk, designated by TR 

LUMP ('TR') 

where the quotes imply the literal string TR which is not to be considered as a symbol. 
The expansion of the macro for this invocation is shown in Figure A8-4. 
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RXXI 



PXXIO 



^AM vxx 

FXXI CXX 



PXX - PRESSURE 
VOLUME 
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QXXI 



TXXIO 



TXX - TEMPERATURE 
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1 I 

QXXE QXXD 
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STRING 



RXXO 
KWV O PXXO RV 
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FXXO 



QXXO AR 

w TXXO 
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Figure A8-3. Lump Definition - Mass and Enthalpy Balance 



LUMP('HD') $ 'HEAD' 




FHDI =(PHDI - PHD)/RHDI 




PHD = VHD/CHD 




FHDO =(PHD - PHDO)/RHDO 




VHD = INTEG(FHDI - FHDO, VHDZ) 




QHDI = FHDI*THDI 




THD = HHD/WHD 




QHDO = FHDO*THD 




OHDD = K*AHD*(THD - TA) 




HHD = INTEG(OHDI - QHDO + QHDE - 


- QHDD, HHDZ) 


MACROEND 





Figure A8-4. Main Invocation and Macro Expansion for Lump Associated with Head (HD) 
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The other macro used in the simulation is the valve so 

MACRO VALVE (R, PO, PI, RZ) 

which calculates a resistance R given outlet pressure, PO, inlet pressure PI, and valve open resistance, RZ. 
If the valve is closed the resistance will rise to a large value (10 20 ) to effectively shut off flow. 

This VALVE macro is defined as a PROCEDURAL block, or one whose order must not be changed. 
The list states that R, the resistance, is the output variable, and that this is calculated as a function of outlet 
pressure, inlet pressure and open resistance. 

Action of the valve is defined by 

R = RZ; PO<PI 

R = 10 20 PO>PI 

Invocation to calculate the resistance into the right ventricle is 

VALVE (RRVI = PRV, PVC, RRVIC) 

which expands as shown in Figure A8-5. This says that the input resistance to the right ventricle is RVIZ, 
if the pressure in the right ventricle PRV is less than the pressure in the vena cava, PVC. Otherwise, it is 
10 20 so preventing any backflow. 



VALVE (RRVI 


= PRV 


PVC 


, RRVIZ) 


PROCEDURAL (RRVI = 


= PRV, 


PVC, 


RRVIZ) 


RRVI = RRVIZ 






IF( PRV.GT. PVC) 


RRVI = 


= 1.0E20 


END 








MACROEND 








VALVE (RRVO 


= PLN S 


PRV 


, RRVOZ) 


PROCEDURAL (RRVO = 


= PLN, 


PRV, 


RRVOZ) 


RRVO = RRVOZ 






IF( PLN.GT. PRV) 


RRVO = 


= 1.0E20 


END 








MACROEND 









Figure A8-5. Macro and Macro Expansion for Inlet and Outlet Values in Right Ventricle 
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The program listing Figures A8-6 through A8-7 defines all the constants necessary to specify the system 
behavior. Since none of the heat flux constants were given in the problem definition they are set to zero, so 
the temperature equations are carried along to count in the time scale but don't calculate significant quantities. 
Since there is no feedback, the temperature merely goes along with the mass balance equation for the ride. 

The compliance of the ventricles is the drive for the system that causes the heart to pump. The reciprocal 
compliance is given as a function of time that repeats every second and this is shown in Figure A8-2. Since 
the code order for calculating the compliance could have been important, it was bracketed in a PROCEDUR- 
AL block. 

Then, the valves in the right and left ventricles (two in each lump) are defined. 

The interconnections of each lump, Figure A8-1, define what the inlet and outlet pressures are. For the 
simple case of two elements in cascade, the outlet pressure is the effect of two resistances connected between 
two pressure sources. 

PXX PXXO PYII PYY 

o AAAA_ o a /VAAA o 

RXXO RYYI 

PXX*RYYI + PYY*RXXO 
RYY I + RXXO 

PYYI = PXXO 

The aorta and vena cave are rather more difficult since the first feeds five other lumps and the second 
receives flow from the five. Writing down the flow balance - equivalent to Kirchoff s law - leads to the 
following for the aorta output pressure 

PAO _,_ PHD ^ PAR ^ PLG _,_ PTR 



„ A „ RAOO RHDI RARI RLGI RTRI 
PAOO = 

1.1,1,1,1 



RAOO RHDI RARI RLGI RTRI 



and similarly for the vena cava inlet pressure 



PVC . PHD . PAR PLG . PTR 



= RCVI RHDO RARO RLGO RTRO 
PVCI - l 1.11.1 



RCVI RHDO RARO RLGO RTRO 

The nine lumps are defined by invoking the macro with the appropriate two character string and this ends 
the model definition included in a DERIVATIVE section. In the DYNAMIC section - interrogated every 
communication interval - is the termination condition and for four cycles the stop time TSTP is set at four. 
This completes the model description: the listing as shown took. 13.2 seconds to translate on a Control Data 
CYBER 173. The run-time commands used to exercise this model are shown listed in Figure A8-8 and the 
output stream generated in Figures A8-9 through A8-12. Prior to the START, the communication interval 
(CINT) is set to 20 msec (0.020 sec), the NSTP divisor to one and the calculation interval or integration step 
specified via the maximum step size (MAXT) to be 10 msec (0.010 sec). After the START the OUTPUT 
list is printed out every half second, since the "NCIOUT" multiplier is 25. 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 81/07/13. 15.16.01. PAGE 1 



PROGRAM PHYSBE 


















INITIAL 


















MACRO LUMP<X) 


















F X I 


= (P X I 


- P„X)/R 


„x...i 












P X 


» V X/C X 














F X 


= <P X - 1 


P X..O)/R 


X 












V X 


= INTEG(F X I - 1 


fJx_o, 


V„X„Z) 










Q X I 


•- F X I*T X I 














T.X 


~- h x/w..: 


X 














0X0 


« F X : 


*T.X 














Q X D 


• K*A X*(T X - TA) 












H X 


• INTEG<Q„X„I - i 


»._x_..o 


+ Q„X.„E - 


Q...X..D; 


' H_.X„Z) 






MACRO END 


















MACRO VALVE <R, 


PO, PI, 


RZ) 














PROCEDURAL (R * PO, 


. PI, RZ) 












R 


- RZ 
















:i:f(po.gt. 


PI) R = 


1 . 0E20 














END 


















MACRO END 


















CONSTANT 


RAO I = 


1 c _. o 


RAOO 


1 C _. '"> 


CAO = 


1.01 


VAOZ= 


80.8 


CONSTANT 


RARI = 


vJ . X vJ , 


RARO 


* 10.0 , 


CAR = 


4.25 


VARZ= 


268.0 


CONSTANT 


RHDI = 




RHDO 


= 5.0 


CHD = 


1 . £. X , 


VHDZ= 


68.0 


CONSTANT 


RTRI = 


0.67 , 


RTRO 


* 1.42 , 


CTR = 


34.0 


VTRZ= 


2180. 


CONSTANT 


RLGI * 


2.58 , 


RLGO 


= 5.00 , 


CLG = 


11. 1 


VLGZ= 


700.0 


CONSTANT 


RVCI * 


l.E-2 , 


RVCO 


1 c _. o 

X . t A. , 


CVC * 


250.0 , 


VVCZ= 


650.0 


CONSTANT 


RLNI = 


1 . E~ £. , 


RLNO 


= 0. 1875, 


CLN ■■ 


= 10.0 , 


VLNZ= 


200.0 


CONSTANT- 


RRVIZ= 


0.0030, 


RRV02 


> 0.0030 










CONSTANT 


RLVIZ= 


0.0275, 


RLVOZ 


= 0.0060 










CONSTANT 


VLVZ * 


319.0 , 


VRVZ 


= 120.0 










CONSTANT 


AAO * 


0.0 


WAO 


= 1.0 


QAOE= 


0.0 


HAOZ= 


0.0 


CONSTANT 


AAR * 


3670.0, 


WAR 


= 7000.0, 


QARE = 


~ 0.0 


HARZ= 


0.0 


CONSTANT 


AHD = 


1400.0, 


WHD 


= 4500.0, 


QHDE « 


« 0.0 


HHDZ= 


0.0 


CONSTANT 


ATR = 


6000.0, 


WTR 


= 53000. , 


QTRE « 


= 0.0 


HTRZ= 


0.0 


CONSTANT 


ALG * 


7000.0, 


WLG 


* 18500. , 


QLGE ■ 


= 0.0 


HLGZ= 


0.0 


CONSTANT 


AVC = 


0.0 


WVC 


= 1.0 


OVCE ■■ 


= 0.0 


HVCZ= 


0.0 


CONSTANT 


ARV = 


0.0 


WRV 


= 600 . , 


ORVE ■■ 


- 0.0 


HRVZ= 


0.0 


CONSTANT 


ALN * 


50000. , 


WLN 


= 1000.0, 


QLNE = 


* 0.0 


HLNZ= 


0. 


CONSTANT 


ALV * 


0.0 


WLV 


= 600.0 , 


QLVE ' 


= 0.0 


HLVZ= 


0.0 


CONSTANT 


QARD = 


0.0 , 


QHDD 


= 0.0 , 


QTRD ■ 


» 0. 


QLGD ■ 


» 0.0 


CONSTANT 


QVCD = 


0.0 


QRVD 


= 0.0 


QLND = 


* 0.0 


QLVD ■■ 


* 0.0 


CONSTANT 


QAOD * 


0.0 














CONSTANT 


K 


0.01 , 


TA 


= 0.0 


TSTP = 


= 3.99 






CONSTANT 


TMX « 
CI MX * 


0. 4 
0.428 , 


TMN 
CIMN 


= 0.5, 
= 0. 0133 










END *" OF INITIAL " 
















DYNAMIC 


















DERIVATIVE 


















PROCEDURAL ( CR V , CI... V=T ) 














TF * AMOD<T, 1.0) 














IF<TF.LE. 


TMX) CI 


*<CIMX-i 


CIMN)*TF/TMX + 


CIMN 








IF<TF.GT. 


TMX .AND. TF.LE 


.TMN) 


CI =(CIMX 


~CIMN)*<TMN~TF> 






/(TMN-TMX) + CIMN 














IF(TF.GT. 


TMN) CI 


= CIMN 














CRV = 1. O/CI 


$ 


CLV * 


•■ CRV 










END 



















Figure A8-6. Listing of Physiological Simulation Benchmark Experiment (PHYSBE) Model 

Definition 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 81/07/13. 15.16.01. PAGE 2 

"VALVES IN RIGHT AND LEFT VENTRICLES' 

VALVE<RRVI « PRV, PVC, RRVIZ) 

VALVE<RRVO - PLN, PRV, RRVOZ) 

VALVE<RLVI - PLV, PLN, RLVIZ) 

VALVE (RLVO = PAO, PLV, RLVOZ) 

"DEFINE THE INTERCONNECTIONS" 

"VENA CAVA FEEDS RIGHT VENTRICLE" 

PVCO =<PVC*RRVI + PRV*RVCO)/(RRVI + RVCO) 

PRVI * PVCO ♦"RIGHT VENTRICLE" 

TRVI « TVC 

"RIGHT VENTRICLE FEEDS LUNGS" 

PRVO =(PRV*RLNI + PLN*RRVO)/(RLNI + RRVO) 

PLN I = PRVO ♦"LUNG INPUTS" 

TLNI * TRV 

"LUNGS FEED LEFT VENTRICLE" 



PLNO 
PL VI 
TLVI 



«<PLN*RLVI 
» PLNO 
* TLN 



+ PLV*RLNO)/(RLVI + RLNO) 

♦"LEFT VENTRICLE INPUTS" 



LEFT VENTRICLE FEEDS AORTA" 



PLVO 
PAOI 
TAOI 



<PLV*RAOI 
PLVO 

' TLV 



PAO*RLVO)/<RAOI + RLVO) 
♦"AORTA INPUTS" 



"AORTA FEEDS HEAD, ARMS, LEGS AND TRUNK" 



PAOO 



•--••• (PAO/RAOO + PHD/RHDI + PAR/RARI + PLG/RLGI + PTR/RTRI) 



/(1.0/RAOO + 1 



PHD I 
THDI 
PARI 
TAR I 
PLGI 
TLGI 
PTRI 
TTRI 



PAOO 

TAO 

PAOO 

TAO 

PAOO 

TAO 

PAOO 

TAO 



O/RHDI + 1.0/RARI + 1 
♦"HEAD INPUTS" 

♦"ARMS INPUTS" 

♦"LEG INPUTS" 

♦"TRUNK INPUTS" 



O/RLGI + 1.0/RTRI) 



"VENA CAVA IS RETURN FROM HEAD, ARMS, LEGS AND TRUNK" 

PVCI ==<PVC/RVCI + PHD/RHDO + PAR/RARO + PLG/RLGO + PTR/RTRO) 

/(1.0/RVCI + 1.0/RHDO + 1.0/RARO + 1.0/RLGO + 1.0/RTRO) 
TVC I =(THD*FHDO + TAR*FARO + TLG*FLGO + TTR*FTRO)/FVCI 
PARO * PVCI ♦ PHDO « PVCI ♦ PLGO = PVCI ♦ PTRO « PVCI 
"DEFINE EACH LUMP" 





LUMPCRV") 


♦ 


"RIGHT VENTRICLE" 




LUMP<"LN") 


♦ 


"LUNGS" 




LUMP("LV") 


♦ 


"LEFT VENTRICLE" 




LUMP("AO") 


♦ 


"AORTA" 




LUMPCAR") 


♦ 


"ARMS" 




LUMP("HD"> 


♦ 


"HEAD" 




LUMPCTR") 


♦ 


"TRUNK" 




LUMPCLG") 


♦ 


"LEGS" 




LUMPCVC") 


♦ 


"VENA CAVA" 


ND 


*" OF DERIVATIVE 


■ 




TERMT<T.GE.TSTP) 


ND 


♦" OF DYNAMIC 


■ 




ND 


♦" OF PROGRAM 


■ 





13.217 CP SECONDS 



3649 TABLE SPACE USED 



19 TABLE MOVES 



Figure A8-7. Listing of PHYSBE Model Definition 
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SET TITLE> "PHYSIOLOGICAL SIMULATION BENCHMARK EXPERIMENT (PHYSBE)" 
S TCWPRN=72,DIS«9 *" FORCE 3 COLUMN OUTPUT WIDTH " 
PREPAR T, PRV, PLN, PLM, PAO, PHD, PTR, PAR, PLG, FVC, FMCI . . . 

, FAOO, FARO, FHDO, FLGO, FLNO, FLUO, FRMO, FTRG, FMCO, CRV, CLM, CI 
OUTPUT T, PRV, PLN, PAO, PHD, "NCI0UT"=25 
SET CINT=0.02, NSTP=1,MAXT=0.010 
START 

PRINT "NCIPRN"«4# T, PRM, PLN, FLMO, FRVO 
S STRPLT« . T . , PRNPLT= . F . , CALPLT= . F . , GRDSPL= . T . 
PLOT FRVO,PLN,PRU 

S CALPLT« . T . , GRDCPL« . T . , PRNPLT« . T . , STRPLT« . F . 
PLOT PRM, PLN 
STOP 



Figure A8-8. Run-time Drive Commands to Exercise PHYSBE Model 



After the simulation run a more detailed print out is obtained for two pressures, PRV and PLN, and 
two flows, FLV and FRV, every four communication intervals or every 80 msec. This runs through Figure 
A8-10. Next we obtain a strip chart plot by setting STRPLT true. The right ventricle flow and lung and right 
ventricle pressures are shown plotted in Figure A8- 1 1 . The grid was produced since GRDSPL was made true 
prior to the plot command. The next line (Figure A8-10) turns on normal line plots (CALPLT=.T.), asks 
for grid on these plots (GRDCPL=.T.), turns on print plots (PRNPLT=.T.) and turns off the strip plot 
(STRPLT=.F.). The following PLOT command produces the printer plot of Figure A8-12 and the line plot, 
actually on a Gould electrostatic plotter, of Figure A8-13. 
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ACSL. RUN-TIME EXEC VERSION 1 LEVEL 6M 



81/07/13. 15.17.20 



PAGE 



SET TITLE="PHYSIQLOGICAL SIMULATION BENCHMARK EXPERIMENT (PHYSBE) " 
S TCWPRN=-72, DIS=9 *" FORCE 3 COLUMN OUTPUT WIDTH ■ 
PREPAR T, PRV, PLN, PLV, PAO, PHD, PTR, PAR, PLC PVC, FVCI . . . 

, FAOO, FARO, FHDO, FLGO, FLNO, FLVO, FRVO, FTRO, FVCO, CRV, CLV, CI 
OUTPUT T, PRV, PLN, PAO, PHD, "NCI0UT"=25 
SET CINT-=0. 02, NSTP-=1, MAXT=0. 010 
START 

T 0. PRV 1.59600000 PLN 20.0000000 

PAO 80.0000000 PHD 56.1983471 



T 0.50000000 
PAO 100.880641 



PRV 0.85086878 
PHD 56.9120419 



PLN 25.4171240 



T 1 . 00000000 
PAO 74. 2731870 



PRV 1.58567986 
PHD 56.8334996 



PLN 20.9539454 



T 1 . 50000000 
PAO 99. 1535674 



PRV 0.87358286 
PHD 57.0084605 



PLN 26.0932275 



T 2.00000000 
PAO 73. 5418443 



PRV 1.62192528 
PHD 56.7579594 



PLN 21.4780036 



T 2.50000000 
PAO 98.2354651 



PRV 0.89433126 
PHD 56.8377607 



PLN 26.7111711 



T 3.00000000 
PAO 73.0300194 



PRV 1.65475157 
PHD 56.5338005 



PLN 21.9627005 



T 3.50000000 
PAO 97.8142421 



PRV 
PHD 



0.91342323 
56.6051521 



PLN 27.2808804 



T 4. 00000000 
PAO 72.6692007 



PRV 1.68449157 
PHD 56.2998931 



PLN 



4132055 



PRINT 


"NCIPRN"=4,T J 


, PRV, PLN, FLVO 


, FRVO 






LINE 




T 


PRV 




PLN 


FLVO 


FRVO 





0. 




1 . 5960000 


20. 


000000 


-7.576E-19 


-1.840E-19 


4 


0. 


0800000 


11.579815 


19. 


828992 


-4.612E-19 


-8.249E-20 


8 


0. 


1600000 


21.410190 


19. 


912234 


-1.701E-19 


1 1 vj . jL £. 7 4 £. 


12 


0. 


2400000 


25.903454 


21. 


978930 


267.24770 


301.88644 


16 


0. 


3200000 


26.869540 


24. 


074300 


287.50230 


215.01840 


20 


0. 


4000000 


27.324480 


25. 


476994 


279. 16393 


142. 11424 


24 


0. 


4800000 


6. 1052156 




517478 


-7.689E-19 


-1.941E-19 


28 


0. 


5600000 


0.9627592 


24. 


817419 


-9.213E-19 


-2.385E-19 


32 


0. 


6400000 


1. 1002612 


24. 


046745 


-•8.629E-19 


-2. 295E-19 


36 


0. 


7200000 


1 . 2256486 


23. 


307887 


~8. 146E 1 19 


-2.208E-19 


40 


0. 


8000000 


1.340.1.452 


O 1 ) 

X..X. . 


599530 


-7.744E-19 


-*£. . 1jii6E~19 


44 


0. 


8800000 


1. 4448501 


21. 


920415 


-7.410E-19 


-2.048E-19 


48 


0. 


9600000 


1 . 5407505 


4.'. 1 . 


269336 


-7. 131E-19 


-1.973E-19 


52 


1. 


0400000 


6.5501247 


20. 


766080 


-5. 589E-19 


-1.422E-19 


56 


i. 


1200000 


16.469192 


20. 


757570 


-2.778E-19 


-4.288E-20 


60 


i. 


2000000 


24 . 830554 


jC. 1 . 


463533 


1.2038419 


259.00168 


64 


i. 


2800000 


27.213663 


23. 


752947 


281 . »j1 «j63 


£.66 . jC.0886 


68 


l. 


3600000 


27.831076 




516663 


276. 73555 


178.03178 



Figure A8-9. Output Stream from PHYSBE Model 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 81/07/13. 15.17 
PHYSIOLOGICAL SIMULATION BENCHMARK EXPERIMENT (PHYSBE) 



20 



PAGE 



LINE 

72 

76 

80 

84 

88 

92 

96 
100 
104 
108 
1 1 *:. 

116 
120 
124 
1 *i$ 
132 
136 
140 
144 
148 

1ES* **\ 

156 

160 

164 

168 

172 

176 

180 

184 

188 

192 

196 

200 
S STRPLT=. 
PLOT FRVO, 
S CALPLT*. 
PLOT PRV, 



T 
4400000 
5200000 
6000000 
6800000 
7600000 
8400000 
9200000 
0000000 
0800000 
1600000 
2400000 
3200000 
4000000 
4800000 
5600000 
6400000 
7200000 
8000000 
8800000 
9600000 
0400000 
1200000 
2000000 
2800000 
3600000 
4400000 
5200000 
6000000 
6800000 
7600000 
8400000 
9200000 
0000000 
T. , PRNPLT* 
PLN, PRV 
T . , GRDCPL' 
PLN 



PRV 
17.074435 
0.9124997 
1 . 0593256 
1. 1930849 
1.3150978 
1. 4265501 



1 



!85069 



1. 6219253 
1 1 . 772357 
21.901368 
27. 110493 
28.236425 
28.727497 
6.4187495 
1.0103165 
1. 1527750 
1.2825971 
1.4010590 
1 . 5093069 
1.6083708 
6.8350133 
17. 185497 
25.947598 
28.458590 
29. 107288 
17.857531 
0.9535880 
1. 1050721 
1 . 2429967 
1 . 368/316 
1 . 4835075 
1.5884298 
1.6844916 
= .F. ,CALPLT= 



T . > PRNPLT= . T . > STRPLT= . F 





PLN 


FLV0 


FRV0 


ic6 . 


O A O O O 'Z 
C\J C7 <CO 


-3. 574E-19 


-9. 128E-20 


ok; 


. 884333 


~9. 390E-19 


-2.497E-19 




. 070429 


-8. 772E-19 


-2. 40 IE- 19 


24. 


.290124 


-8.260E-19 


-2. 310E-19 


23. 


. 542032 


-7.835E-19 


— jc. . *:. *:. 3 E. ~~ 1 9 


oo 


824822 


-7. 482E-19 


-2. 140E-19 




. 137220 


-•7. 187E-19 


-2. 06 IE- 19 


21. 


478004 


-6. 94 IE -19 


-1.986E-19 


21. 


265876 


-4. 146E-19 


-9.494E-20 


j£. 1 . 


275058 


•-1.385E-.19 


48. 177692 


O'Vf 


155388 


265.84205 


304.23883 


ok; 


315120 


276.68971 


224. 71582 


£.6 . 


786136 


268.98179 


149.33546 


<:.6 . 


827306 


-7.490E-19 


-2. 04 IE- 19 


26. 


073132 


-8.985E-19 


-2.506E-19 


OK| 


£. % j 3 1 9 6 


-•8. 432E-19 


-2. 410E-19 


24. 


467109 


-7.972E-19 


-2. 318E-19 


23. 


713473 


-7. 59 IE- 19 


™ C . £. O 1 fc. ™ 1 9 


oo 


990948 


-7.273E-19 


-2. 148E-19 


4.. .<.. . 


*"* O O *•* K* i 


-7.007E-19 


-2.069E-19 


£. 1 . 


*"? k: ~x ~x o O 


-5.495E-19 


-1.492E-19 


2.1. 


737983 


~2. 730E-19 


-4.552E-20 


o o 


457848 


x:. . 6 8 1 c 6 6 6 


268.44232 


24. 


843446 


277. 11008 


278.08799 


c.t> . 


687059 


272.46705 


186. 17147 


27. 


404736 


-3. 527E-19 


-9.S47E-20 


27. 


060560 


-9.264E-19 


-2.611E-19 


jC*.6 . 


202135 


-8.656E-19 


-2.510E-19 


ok; 


379148 


-8. 153E-19 


-2.414E-19 


24. 


590135 


-7.735E-19 


-2.322E-19 


0"X 


833694 


-7.387E-19 


-2.235E-19 


jc. 3 . 


108481 


-7.097E-19 


_. O 1 k; o C ™ 1 O 


o o 


413205 


-6.855E-19 


-2.073E-19 


F. , 


GRDSPL- 


. T. 





Figure A8-10. Output Stream from PHYSBE Model 



A-72 



PHYSIOLOGICAL SIMULATION BENCHMARK EXPER 
IMENT (PHYSBE) 



o 



Q/C\J 
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o 
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Figure A8-1 1 . Strip Plot of Right Ventricle and Lung Pressure and Right Ventricle Flow 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 81/07/13. 15.17.20. PAGE 3 
PHYSIOLOGICAL SIMULATION BENCHMARK EXPERIMENT (PHYSBE) 

PRV A 0. 4.000000 8.000000 12.00000 16.00000 20.00000 24.00000 28.00000 32.00000 36.00000 40.00000 

PLN B 18.00000 19.00000 20.00000 21.00000 22.00000 23.00000 24.00000 25.00000 26.00000 27.00000 28.00000 

T XAXIS 




END DISSPLA — 3039 VECTORS GENERATED IN 
2353 UORDS TABLE SPACE USED 



2 PLOT FRAMES. 



Figure A8-12. Plot of Right Ventricle and Lung Pressures from PHYSBE Model 
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o 
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Figure A8-13. Line Plot of Right Ventricle and Lung Pressures from PHYSBE Model 
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9. PHASE AND GAIN 

The accompanying program was put together to calculate and plot the phase and gain through the plant 
described by the following transfer function 

X _ n( , 0.5s + 1 

— - G(s) = 



Y w 0.03s 2 +0.1s+ 1 

The characteristics were to be obtained by forcing the model with a sine wave and determining the in-phase 
and quadrature components, from which gain and phase can be calculated. Changing frequency slowly allows 
successive points to be calculated until, at the end of a single run, the complete Bode plot can be generated. 
This method is a relatively expensive way to obtain frequency response and is almost never justified for linear 
systems. For a non-linear plant though, this method is the best one available and can be used to match bench 
tests on hardware with a sinewave generator. Care must be taken to choose the excitation amplitude correctly 
and also make sure the model is in steady state while the measurements are made. 

The program listing is given in Figure A9-1 and A9-2 and should be followed through the following 
discussion. The basic action is to establish a separate DERIVATIVE block, which will repeat every cycle of 
the current frequency, and which examines the inphase and quadrature components of a full cycle integration. 
When the change in phase from cycle to cycle is small enough, the data point is recorded and the frequency 
changed so that another point can be calculated. In the program, the INITIAL section sets the first frequency, 
W, and phase, FI. The frequency is started at the maximum value and will be reduced geometrically by: 

W = AMAX1(WMN, KW*W) 

so that the final logarithmic plot will have equally spaced points. For this application KW was defined to be 
0.8 and the frequency sweep was from a maximum value (WMX) of 100.0 down to a minimum value (WMN) 
of 1 .0. Next go to the second DERIVATIVE section listed in Figure A9-2 where the plant is defined - this 
is identified as DERIVATIVE CONTIN. First the name for the step size is. defined (MAXTC) and set to 
zero to indicate that it is calculated elsewhere in the model. The frequency bounds, WMN and WMX, are 
specified together with the amplitude of the forcing function (XMAG) and the settling time (TSETTL=2.0). 
Since the plant is linear the value of the XMAG has no effect but for a real non-linear plant this value should 
be chosen to match the plant capability. The actual forcing function X is obtained from: 

X = XMAG*SIN(W*T + FI) 

where FI is a parameter used to ensure continuity of X, when the frequency W is changed. The model is 
defined by the transfer operator, TRAN, and numerator and denominator polynomials. The numerator 
coefficients are 0.5 and 1.0; the denominator coefficients 0.03, 0.1 and 1.0. In addition we specify a maximum 
step size (MAXTZ) of 0.050 sec chosen conservatively from the plant roots of (-1.5±j6) and a minimum 
divisor (NSTPMN) of the period. This really says that no matter how fast the drive sine wave is, use a 
calculation interval of at least a tenth (NSTPMN =10) of the period. As the frequency get slower and slower, 
don't allow the step size to rise above MAXTZ (=0.050). This is performed by the line in the DISCRETE 
section above which calculates MAXTC or: 

MAXTC = AMINl(PERIOD/NSTPMN, MAXTZ) 

The output (Y) of the plant is obtained using the TRAN operator which can be used to represent a general 
polynomial transfer function i.e. 

Y = TRAN(1,2, A, B, X) 

and then the in-phase (P) and quadrature (Q) components are obtained by multiplying the output (Y) by 
Sin(W*T 4- FI) and Cos(W*T + FI) respectively and integrating. 
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Returning to the DISCRETE code of Figure A9-1, the first calculation is to obtain the change in the 
in-phase and quadrature components since the last cycle i.e. 

DLP = P - PP 

DLQ = Q - QP 

Since PP and QP are initialized to large numbers, the first time the difference will be large. 

The termination condition (TERMT) is inserted in case a frequency is chosen such that the attenuation 
is too great for the machine precision. For 32 bit computers, EPM shold probably be set to 0.0001 which will 
still give room for nearly 80 dB attenuation. If the change from cycle to cycle in P and Q is less than the 
machine precision, the increments will be zero and the logarithm will fail further on in calculating the gain 
(GDBN). Once the increment has been calculated, the current values of P and Q are saved to become the 
previous values (PP and QP) next time. The phase and gain over the last cycle are calculated from 

PHASE = ATAN[AQ/AP] 

GAIN = 10.0*LOG10[(AP 2 + AQ 2 ) (W/x) 2 ] 

If the new phase differs from the last phase by too much (nominally 0.1 degrees) then the data save operation 
is skipped. Similarly if a settling time (TSETTL) has not passed, another cycle is taken. If both these tests 
are passed then the phase, gain and frequency are transferred to separately named variables PDG, GDB and 
WFR which will be used for plotting. Next the frequency W is decreased geometrically and the phase (FI) 
of the forcing function adjusted to give continuity in the output. This helps ensure a shorter settling time 
between frequency changes. The previous phase is set to a large number so that the integration over the first 
cycle will be rejected and lastly the data logging routine, LOG, is called in order to force an output and data 
recording action at this point. Recall that the communication interval CINT was set to 1000.0 in the beginning 
of the model definition with the intent that this will produce no output beyond the first time-equal-zero point. 
All the other output will be obtained every time LOG is called indicating a new frequency point is being 
recorded. 

For all cases we then make the previous phase (PDGP) equal to the new phase (PDGN), ready for next 
time, recalculate the PERIOD and a new step size for the continuous section. These last two calculations only 
need to be done when the frequency changes but are put here in order to handle the initialization problem 
rather than repeat the code in the INITIAL section. 

The output stream that results in exercising the model is shown in Figures A9-3. Note the frequency 
multiplier KW was changed to 0.9 from the nominal 0.8 in order to increase the point density to 23 per decade 
so producing smoother plots. The plot was modified to appear on both normal line plot (CALPLT=.T.) as 
well as the default printer plot using a logarithmic x-axis scale. With this logarithmic scale a minimum must 
be specified to avoid the rounding to zero which is expressed symbolically as the contents of WMN (=1.0 
rad/sec) i.e. 

PLOT 'XLOG, 'XLO' = WMN, PDG, GDB 

The resulting pictures are shown in Figures A9-4 and A9-5. 

These plots were made in one simulation run stopping every so often to change the drive frequency to 
a new value. Examination of the last value of time showed that it needed 242 seconds of simulated time to 
complete the sweep, which explains why it is usually considered an expensive picture to obtain. Individual 
transient studies will be over in three or four seconds or so whereas this run needs effectively sixty transient 
runs. 
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TABLE A9-1 . Comparison of Measured and Theoretical Gain (dB) and Phase (degree) 



w 


GDBM 


GDBT 


PDGM 


PDGT 


90,00 


-14.612 


-14.617 


-88.64 


-89.14 


31.38 


-5.230 


-5.232 


-87.47 


-87.37 


10.94 


5.916 


+5.920 


-77.47 


-77.47 


3.090 


7.484 


+7.484 


+33.67 


+33.67 


1.000 


1.188 


+ 1.188 


+20.68 


+20.68 



From an independent run with a listing of time, T, along with the frequency, phase and gain, it can be 
shown that the high frequency points can be obtained quickly. In fact it takes 35 seconds to sweep the 
frequency from 100 down to 10 radian/second and a further 186 seconds to go from 10 down to 1 radian/ 
second. The reason for this is that we must wait at least one complete cycle and at 1 radian/second each 
measurement is taking over six seconds. 

One caveat is in order in running this type of program and that is errors caused by non-steady-state 
operating conditions. At low attenuations, the drive signal dominates in the P and Q integrators but when the 
plant attenuation becomes high, the residual motion excited by the start up transient or frequency switch can 
become important. An idea of the magnitude of the effect can be obtained by looking at the irregularity in 
the phase plot when the frequency is over 20 radians/second. The plot should theoretically be smooth and 
niona tonic negative as the phase asymtotically approaches -90 degrees. In the output stream of Figure A9-3, 
the phase at 72.9 radians/second is given as -87.8 degrees but at the next frequency point of 65.6 it has gone 
back to -89.3. This change of 1.5 degrees in the wrong direction must be an artifact of the measurement 
implementation. 

We have done an empirical study of this phenomenon and found that better results are obtained with 
heavier damped systems (shorter settling times) and certainly when the attenuation is relatively small. If 
problems occur, experimentation with the phase change error parameter (EPDG) can help or else add a fixed 
settling time after each frequency change so that the system has time to get to a steady state before the 
measurement is taken. As a test of the accuracy, we evaluated the theoretical gain and phase at five selected 
frequency points and the comparison is listed in Table A9- 1 . Note the phase error of half a degree at high 
frequencies. A second run is made with the allowable phase error EPDG changed to 0.01 (from 0.1). This 
forced slightly longer settling times so that the overall sweep time was 269 seconds (up from 242 seconds) 
and the measured phase at a frequency of 90 radians/second was now -89.07 degrees (theoretical is -89.14 
degrees). The increased settling time was seen in that the measurement at W = 100 was available at 2.51 
sec (was 2.01) and that at W = 90 was produced at 3.84 seconds (was 2.29). At lower frequencies, the tighter 
constraint had little effect since settling has occurred within the first cycle anyway. 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 81/07/20. 13.36.51. PAGE .1 

PROGRAM PHASE AND GAIN 

• COMPUTE PHASE AND GAIN OF A GIVEN " 

■ TRANSFER FUNCTION BY INTEGRATING OVER A COMPLETE CYCLE. " 

" CONTINUE TO INTEGRATE UNTIL PHASE CHANGE FROM CYCLE TO CYCLE " 

u IS LESS THAN SOME PRESET MINIMUM " 

CINTERVAL CINT * 1000.0 
NSTEPS NSTP = 1 

CONSTANT RMN = 1 . OE -30 , RMX * 1 . OE30 

INITIAL 

" SET FIRST FREQUENCY AND PHASE " 

W * WMX 
FI =0.0 
■ SET PREVIOUS " 

PP * RMX 

QP = RMX 

PDGP * RMX 

INITIALISE PLOT VARIABLES ■ 

PDG = 0.0 

GDB =0.0 

WFR « 0. 

END $" OF INITIAL * 

DERIVATIVE DISCRETE 

ALGORITHM IALD = 

MINTERVAL PERIOD = 0.0 *■ INDICATE PERIOD WILL BE CALULATED' 

CONSTANT RADDEG * 57.3 , PI = 3.14159 
CONSTANT EPDG =0.1 , EPM = 1 . OE-7 
CONSTANT KW = 0.8 , TSTP = 10000.0 

PROCEDURAL 

■ CHANGE IN IN-PHASE AND QUADRATURE INTEG ■ 

RALS OVER LAST CYCLE * 
DLP = P - PP 
DLQ = Q - QP 

• ^ IF RELATIVE CHANGE TOO SMALL FOR MACH ACC 

TERMT(<DLP**2 + DLQ**2)/(P**2 + Q**2 + RMN) .LT. EPM**2) 

. SAVE NEW INTEGRALS AS PREVIOUS " 

pp = p 

QP = Q 

. CALCULATE NEW PHASE AND GAIN ' 

PDGN = ATAN2<DLQ, DLP + RMN)*RADDEG 

GDBN = 10.0*AL0G10(<DLP**2 + DLQ**2)*<W/<PI*XMAG> )**2) 

» IF CHANGE IN PHASE NOT SMALL ENOUGH YET " 

IF(ABS(PDGN - PDGP) . GT. EPDG) GO TO SKIP1 

. ... IGNORE RESULTS UNTIL AFTER SETTLING TIME ' 

IF(T .LT. TSETTL) GO TO SKIP1 

TERMINATE ON FREQUENCY SWEEP " 



Figure A9-1 . Model Definition Listing for Phase and Gain Study 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 81/07/20. 13. 36. 51. PAGE 2 

TERMT<W . LE. WMN) 

" ~ ~ •••-- SAVE VALUE IN SEPARATE NAME FOR PLOTTING " 

PDG ™ PDGN 

GDB « GDBN 

WFR = W 

" --• - ADVANCE FREQUENCY GEOMETRICALLY H 

W = AM AX 1< WMN, KW*W) 

"-- ~ -— CALCULATE NEW PHASE FOR CONTINUITY " 

OF FORCING FUNCTION AT NEW FREQUENCY " 

FI « FI + T*<WFR ■■•• W) 

H - - -• - —ENSURE PREVIOUS PHASE SET TO FORCE AT " 

LEAST TWO CYCLES " 

PDGN *: RMX 

" - • FORCE A DATA LOGGING ACTION " 

CALL LOG 
SKIP1. .CONTINUE 

" - -•• - RESET PREVIOUS PHASE FOR NEXT TIME 8 

PDGP « PDGN 

"•••• — - - • RECALCULATE NEW PERIOD AND STEP SIZE " 

PERIOD = 2.0*PI/W 

MAXTC = AMINKPERIOD/NSTPMN, MAXTXZ) 
END $" OF PROCEDURAL ■ 

TERMT<T . GT. TSTP) 

END *" OF DISCRETE " 

DERIVATIVE CONTIN 

MAXTERVAL MAXTC = 0.0 

CONSTANT WMN « 1.0 , WMX « 100.0 

CONSTANT XMAG = 1.0 , TSETTL =2.0 

X « XMAG*SIN(W*T + FI) 

" — -•• -DEFINE MODEL " 

REAL A<2), B(3) 

CONSTANT A = 0.5, 1.0 , B « 0.03, 0.1, 1.0 

CONSTANT MAXTXZ « 0.050 , NSTPMN = 10.0 

Y = TRANd, 2, A, B, X) 

8 - -- INTEGRATE FOR IN-PHASE AND QUADRATURE COM" 

P = INTEG<Y*SIN<W*T + FI), 0.0) 
Q = INTEG(Y*COS(W*T Y FI), 0.0) 

END $ H OF CONTINUOUS SECTION ' 

END $" OF PROGRAM » 



Figure A9-2. Model Definition Listing for Phase and Gain Study 
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ACSL RUN -TIME EXEC VERSION 1 LEVEL 6H 



81/07/20. 13.37.43. 



PAGE 



S TITLE* "PHASE AND GAIN OF A T 
SET TCWPRN=72 $■ FORCE OUTPUT 
OUTPUT WFR, GDB, PDG 
PREPAR WFR, GDB, PDG, T, DLP, DI..Q 
SET KW«0.9 



RANSFER FUNCTION* 
WIDTH TO FIT ON PAGE 



START 


















WFR 


0. 


GDB 


0. 


PDG 


0. 






WFR 


100.000000 


GDB- 


-15.5339830 


PDG- 


-89. 


4828190 




WFR 


90.0000000 


GDB- 


•14.6119512 


PDG- 


-88. 


6436703 




WFR 


81.0000000 


GDB- 


-13.6880842 


PDG~ 


-88. 


1866592 




WFR 


72.9000000 


GDB- 


•12.7655032 


PDG- 


-87. 


8266695 




WFR 


65.6100000 


GDB- 


•11.8405518 


PDG- 


-89. 


3292461 




WFR 


59.0490000 


GDB- 


•10.9121528 


PDG- 


-88. 


9555216 




WFR 


53. 1441000 


GDB- 


•9.97898569 


PDG- 


-87. 


8230158 




WFR 


47.8296900 


GDB- 


•9.04066204 


PDG- 


-88. 


. 7937635 




WFR 


43.0467210 


GDB- 


•8. 09906553 


PDG- 


-88. 


0034209 




WFR 


38.7420489 


GDB- 


-7. 15376933 


PDG- 


-86. 


7765993 




WFR 


34.8678440 


GDB- 


•6. 19762809 


PDG- 


-87. 


4969789 




WFR 


31.3810596 


GDB- 


•5. 23020223 


PDG- 


-87. 


4719048 




WFR 


28.2429536 


GDB- 


-4.25508961 


PDG- 


-86. 


8380793 




WFR 


25.4186583 


GDB- 


-3. 25076861 


PDG- 


-87. 


2079492 




WFR 


22.8767925 


GDB- 


•2. 25563316 


PDG- 


-85. 


9499742 




WFR 


20.5891132 


GDB- 


•1.21329761 


PDG- 


-85. 


7098543 




WFR 


18.5302019 


GDB- 


•0. 15270019 


PDG- 


-84. 


8512870 




WFR 


16.6771817 


GDB 


0.98163307 


PDG- 


-84. 


, 6636^ x"~6 




WFR 


15.0094635 


GDB 


2. 08723526 


PDG- 




9781036 




WFR 


13.5085172 


GDB 


3. 29087721 


PDG- 


-81. 


6269574 




WFR 


12. 1576655 


GDB 


4. 56177919 


PDG- 


-79. 


8609486 




WFR 


10.9418989 


GDB 


5. 91640044 


PDG- 


-77. 


4747302 




WFR 


9.84770902 


GDB 


7. 39443458 


PDG- 


-74. 


1437063 




WFR 


8.86293812 


GDB 


8. 95048332 


PDG- 


-69. 


5784310 




WFR 


7.97664431 


GDB 


10.6294689 


PDG- 


~cnc . 


7842192 




WFR 


7. 17897988 


GDB 


12.3176694 


PDG- 




8597177 




WFR 


6.46108189 


GDB 


13.7611058 


PDG- 


-38. 


5498530 




WFR 


5.81497370 


GDB 


14.4616674 


PDG- 


-20. 


4125257 




WFR 


5.23347633 


GDB 


14.0973675 


PDG- 


£. . J 


L1206446 




WFR 


4. 71012870 


GDB 


12.9260856 


PDG 


12. 


3714693 




WFR 


4.23911583 


GDB 


11.4640791 


PDG 


X..A.. . 


1337918 




WFR 


3.81520424 


GDB 


10.0113195 


PDG 


28. 


2251367 




WFR 


3.43368382 


GDB 


8.67507197 


PDG 


31. 


8013975 




WFR 


3.09031544 


GDB 


7.48419450 


PDG 


33. 


6716777 




WFR 


2.78128389 


GDB 


6. 43282308 


PDG 


34. 


3740970 




WFR 


2.50315550 


GDB 


5.50769463 


PDG 


34. 


, jc4»Jjt:.681 




WFR 


2. 25283995 


GDB 


4. 69641667 


PDG 


33. 


5226479 




WFR 


2.02755596 


GDB 


3. 98711998 


PDG 


32. 


3719701 




WFR 


1.82480036 


GDB 


3. 36962092 


PDG 


30. 


9191840 




WFR 


1.64232033 


GDB 


2. 83474951 


PDG 


29. 


2622764 




WFR 


1 . 47808829 


GDB 


2. 37411194 


PDG 


27. 


4796699 




WFR 


1 . 33027946 


GDB 


1. 97983743 


PDG 


'•>er 


6343745 




WFR 


1. 19725152 


GDB 


1.64446882 


PDG 


£.0 . 


7766047 




WFR 


1 . 07752637 


GDB 


1. 36094389 


PDG 


21. 


9455378 




WFR 


1.00000000 


GDB 


1. 18775786 


PDG 


20. 


6805527 




WFR 


1 . 00000000 


GDB 


1. 18775786 


PDG 


20. 


6805527 


S CALPLT=.T. 


, GRDCPL* . T . 












PLOT ' 


'XLOG', 


•XLO"=WMN,PDG,GDB 













Figure A9-3. Output Stream from Phase and Gain Model 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL <5M 81/07/20. 13.37.43. P 

PHASE AND GAIN OF A TRANSFER FUNCTION 

PDG A -100.0000 -80.00000 -40.00000 -40.00000 -20.00000 0. 
GDB B -20.00000 -16.00000 -12.00000 -8.000000 -4.000000 0. 
UFR XAXIS 
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Figure A9-4. Plot of Phase and Gain against Frequency in Radians /second 
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PHASE AND GAIN OF A TRANSFER FUNCTION 
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Figure A9-5. Line Plot of Phase and Gain against Frequency in Radians /second 
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10. MISSILE AIRFRAME MODEL 

This example was chosen to show the use of vector operators, vector integration and to demonstrate how 
other standard FORTRAN subroutines can be incorporated into a simulation model. It is the six degree-of- 
freedom model of an uncontrolled ground-to-air missile with the simulation configured to produce transient 
responses to control surface deflections. For use in a missile system evaluation, the model would have to be 
extended to include a target, target sensor or seeker, guidance law and autopilot as well as expand the 
aerodynamic and motor descriptions. This model as it stands is complicated enough and any extensions 
describing actual hardware systems usually bear the burden of security classification. 

In order to develop the missile model, we must define axis systems and the angles that transform between 
different frames. The axis system used in this model has the second or y-axis pointing up, and is found 
commonly in models developed for ground launched missiles (HAWK, PATRIOT). The other major school 
of thought orients the axes with third or z-axis pointing down, and this tends to be used by missile engineers 
who have graduated from airplane development. Models can be built in any system of axes, but for consistency, 
all frames in the simulation should become parallel when the orientation angles become zero. 

For this example model, the reference or E frame has the El axis horizontal and down range, E2 or 
vertical (up) and E3 is crossrange, horizontal, out to the right to form a right hand set. The origin of the frame 
is normally on the ground but since we don't compensate the atmospheric density table look-up for ground 
altitude, in this case the origin is assumed to sit at sea level. All velocity and range vectors are normally 
expressed as components in this frame unless deliberately specified otherwise. The missile frame, shown in 
Figures A 10-1 and A 10-2 has Ml out of the nose along the center line, M2 along fin one (normally viewed 
vertically or up) and M3 out to the right along fin two. The two frames are connected by an euler sequence 
of rotations starting at the ground reference or E frame. i^ M (SIM) to the left about E2, M (THM) up about 
the new three axis E3' followed by M (FIM) about the new one axis which should now be Ml to align the 
two and three axes with M2 and M3. The control fin deflections are shown in Figure A 10-1 in their positive 
sense - trailing edge right for fins one and three, trailing edge down for fins two and four. 

Units adopted in the model are derived from the slug as the unit of mass, the foot as the unit of length 
and the second as the unit of time. Recently the US Department of Defense has begun to require metric sizing 
with models developed using kilogram, meter, second as the fundamental units. Most of the existing missiles 
however are sized in English units. 

In developing the simulation model it is important that all units be consistent and fundamental, since 
over half of all simulation errors can be said to be the fault of unit misconceptions, either in the equations 
or in the constant values. It is strongly recommended that non-basic units such as degrees or gees be eliminated 
from the model equations (use radians for angles and feet/second squared or meters/second squared for 
acceleration): Variables can be transformed in the DYNAMIC section for output into auxiliary units but keep 
the internal scaling within the model consistent. 

The simulation model definition code is listed in Figures A 10-3 through A 10-6. In the INITIAL section, 
the integration algorithm is specified as second order, fixed step (IALG = 4); the step size is 10 msec (MAXT 
= 0.010); the communication interval divisor is unity (NSTP = 1) and a communication interval of 20 msec 
is defined. A subroutine INIT(A) is called to pass the current stability derivative matrix, A, to the aerodynam- 
ic table generators. Normally the aerodynamic tables would be real data stored in the external subroutines 
and the INITIAL section would be concerned with launch angles, taking into account the position and velocity 
of a target. 
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Figure AIO-1. Fin Deflection Direction and Missile or M Frame Definition 




Figure A10-2. M Frame in Missile Showing Position Pitch Angle of Attack 

(Wind from Above) 
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*********ABVANCED CONTINUOUS 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 



•ROGRAM 



SIMULATION LANGUAGE********* 
81/08/1 1 . 17 . 46 . 51 . PAGE 



MISSILE AIRFRAME MODEL 



•- — -A GENERIC MISSILE AIRFRAME MODEL IS ■ 

DEVELOPED USING VECTORS FOR ALL THREE DIMENSIONAL QUANTITIES. " 
THIS MODEL WILL RESPOND TO FIN DEFLECTIONS SO REPRESENTING THE 
OPEN LOOP AIRFRAME RESPONSE AND NEEDS A SEEKER, AUTOPILOT, " 
ACTUATOR, MOTOR AND TARGET MODULE IN ORDER TO EVALUATE GUIDANCE 
EFFECTIVENESS " 



IN 


ITIAL 










ALGORITHM 

MAXTERVAL 

NSTEPS 

C INTERVAL 


IALG = 
MAXT -- 
NSTP = 
CT.NT = 


s 4 
= 0. 
= 1 
= 0. 


010 
020 



CALL INIT(A) 
END $ B OF INITIAL 
DYNAMIC 
DERIVATIVE 



• PASS STABILITY DERIVATIVE MATRIX TO THE 

COEFFICIENT GENERATION SUBROUTINE " 



CONSTANT 
a 

TABLE 



H 

TABLE 



•ENVIRONMENT MODULE " 

•DEFINE ARRAYS AND CONSTANTS FOR MODULE 



RO 



G ••= 32 . 2 

••- -- - VELOCITY OF SOUND - FUNCTION OF ALTITUDE 

VS, 1, 10 
/ 0.0 , 1 .0E4 , 2.0E4 , 3.0E4 
, 5.0E4 , 6.0E4 , 7.0E4 , 8. 0E4 
, 1186.5 , 1077.4 , 1036.4 , 994.8 
, 968.1 , 968.1 , 970.9 , 977.6 
--•- — -- LOG OF ATMOSPHERIC DENSITY ' 

LRO, 1, 10 

/ . , 1 . 0E4 , 2 . 0E4 , 3 . 0E4 

, 5.0E4 , 6.0E4 , 7.0E4 , 8.0E4 

,-6.04191 ,-6.34502 ,-6.67084 ,-7.02346 ,-7.43995 . 

, -7 . 9.1.851 , -8 . 39664 , -8 . 87953 , -9 . 36448 , -9 . 87239/ 



4 . 0E4 
9. 0E4 
968 . 1 
984 . 3 



4 . 0E4 
9 . 0E4 



/ 



CALCULATE ACTUAL ATMOSPHERIC DENSITY 

EXP<LRG(RM<2))> 

-— — -- MISSILE AIRFRAME. MODULE " 



REAL 
REAL- 
REAL 



DEFINE ARRAYS AND CONSTANTS FOR MODULE 

ME(9), VMM(3), NM(3), NME(3), DL(4), CD<3), C(6) 
VM(3>, VMD<3), VMIC(3), RM(3), RMD(3), RMIC(3) 
WM<3>, WMD(3), WMIC(3), A(30) 



CONSTANT 



- —-MISSILE DIMENSIONAL CONSTANTS 

3.95 , CBAR = 5. 62 



Figure A10-3. Listing of Model Definition for Missile Airframe Simulation 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 81/08/11. 17.46.51. PAGE 2 

CONSTANT S = 13.9 , DXREF = 9.60 

CONSTANT DL = 4*0. 

" - - ■- -- INITIAL CONDITION VALUES " 

CONSTANT SIMIC = 0.0 , THMIC =0.0 
CONSTANT FIMIC =0.0 , WMIC = 3*0.0 
CONSTANT VM I C « 2 1 54 . 8 , 2*0 . 
CONSTANT RMIC = 0.0, 10000.0, 0.0 

" -~ - - — DEFINE ELEMENTS OF STABILITY DERIVATIVE ' 

" MATRIX. LINEAR AERODATA IS ASSUMED FOR SIMPLICITY IN SUBROUTINE 
" COEFF. NON-LINEAR AERODATA MAY BE INCORPORATED BY REWRITING ■ 
" THIS SUBROUTINE " 



CONSTANT 


A = 




0. 148 


, 0. 


,0.0 ,0.0 


, 0.0 


, -0 . 26 


,0.0 ,0.0 


, 0.0 


, 0. 


,-0.26 , 0.0 


, 0.0 


, 0.528 


,0.0 ,0.0 


, 0.0 


, 0.0 


, . 528 , 0.0 


■ _. . 




-ROLL DAMPING - 


TABLE 


CLP, 1, 


5 




/ 0.0 


,0.8 ,1.0 




, --0. 2.1 


,•••0.21 ,-0.20 


u „, „ 


- 


PITCH DAMPING - 


TABLE 


CMQ, 1, 


5 




/ 0.0 


,0.8 ,1.0 




, -3.8 


,-2.0 ,-1.5 



0.0 


, 0. 





0.0 


, --0 . 


286 


0.286 


, 0. 





0.0 


, A.. . 





2.0 


, 0. 






FUNCTION OF MACI-I NUMBER " 

•1 O '•.> A 

, X . /. , /.. . \/ ... 

,-0.19 ,-0.18 / 
FUNCTION OF MACH NUMBER ■ 

,1.2 ,2.0 
,-2.0 ,-2.1 / 

" - - MAGNITUDE OF MISSILE VELOCITY " 

MVM = SQRT(DOT(VM, VM>> 

" MAKE *ME* MATRIX FROM ORIENTATION ANGLES " 

CALL MMK(ME = FIM, 1, THM, 3, SIM, 2) 

» ROTATE VELOCITY TO MISSILE FRAME ■ 

CALL VECROT(VMM = VM, ME) 

■-- - -LATERAL AND VERTICAL ANGLES OF ATTACK ■ 

AL2 = ATAN(-VMM(3)/VMM(1)) 

AL3 = ATAN( VMM (2) /VMM ( 1 ) ) 

" MACH NUMBER AND DYNAMIC PRESSURE ■ 

MACH = MVM/V8<RM<2)> 

Q =0. 5*R0*MVM**2 

" •— - -CALCULATE DAMPING DERIVATIVES " 

PROCEDURAL (CD = MVM, MACH, WM) 

CD<1) = 0.5*CLP(MACH)*B*WM(1)/MVM 

CCVV = 0.5*CMQ<MACH)*CBAR/MVM 

CD(2) = CCVV*WM(2) 

CD<3) = CCVV*WM(3> 
END $" OF PROCEDURAL " 

» 6ET HOMENTS AND FORCE AERO COEFFICIENTS * 

" AND CORRECT LATERAL MOMENTS FOR SHIFT IN CENTRE OF GRAVITY ■ 

" POSITION ■ 
PROCEDURAL <C = AL2, AL3, DL, MACH, DXCG, DXREF) 

CALL COEFF (C = AL2, AL3, DL, MACH) 

C(2) = C<2) - (DXCG •-• DXREF)*C(6)/CBAR 

C(3> = C(3) + (DXCG ~ DXREF)*C(5)/CBAR 
END $" OF PROCEDURAL ' 

" ~ - CALCULATE ACCELERATION DUE TO AERODYNAMIC • 

EFFECTS AND ROTATION RATE DERIVATIVES ■ 



Figure A10-4. Listing of Model Definition for Missile Airframe Simulation 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL. TRANSLATOR VERSION 1 LEVEL 6F 81/08/11. 17.46.51. PAGE 3 

PROCEDURAL <NM, WMD = Q, C, CD, WM, MASS, IXX, IYY) 

NM<1) = (Q*S*C<4> + THRUST) /MASS 

NM<2> = Q*S*C(5)/MASS 

NM<3> * Q*S*C<6)/MASS 

WMD(1> = Q*S*B*<C(1) + CD(1))/IXX 

WMD(2) « G*S*CBAR*<C<2) + CD(2))/IYY + WM<1)*WM<3) 

WMD(3) = G*S*CBAR*<C<3) + CD (3)) /IYY - WM(1)*WM<2) 
END *' OF PROCEDURAL ■ 

" ROTATE ACCELERATION VECTOR TO EARTH FRAME" 

CALL INVROT<NME « NM, ME) 

n CALCULATE VELOCITY DERIVATIVES IN THE " 

EARTH FRAME - NEEDS GRAVITY ADDING IN " 
PROCEDURAL (VMD = NME, G) 

VMD<1) = NME<1) 

VMD<2) « NME<2) ~ G 

VMD(3) = NME<3) 
END *• OF PROCEDURAL " 

« _. Y AW ANGLE DERIVATIVE • 

SIMD « <WM<2)*C0S<FIM) ••- WM<3)*SIN<FIM) ) /COS(THM) 

" INTEGRATE FOR ALL EULER ANGLES - NOTE USE" 

OF VECTOR INTEGRATOR FOR SINGLE ELEMENT " 
SIM « INTVO<S.TMD, SIMIC) 

THM = INTEG<WM<2)*SIN<FIM) + WM<3)*C0S(FIM> , THMIC) 
FIM * INTEG<WMCI. ) - SIMD*SIN(THM) , FIMIC) 

' • • - • - - - V E C T OR IN T E G R A T E FOR ROTATIONA L V E L C I T Y " 

WM « INTVC(WMD, WMIC) 

• -• - • - -— TRANSLAT I ON AL VELOC IT Y " 

VM = INTVC<VM.D, VMIC) 

" -TRANSLATIONAL POSITION - NOTE THE DERIV- " 

" ATIVE VECTOR CANNOT BE A STATE VECTOR (VELOCITY) AS WELL " 
CALL XFERB(RMD « VM, 3) 
RM = INTVC(RMD, RMIC) 

"-- - MOTOR MODULE " 

" - SIMPLE VERSION WITH ZERO THRUST SPECIF- " 

YING A BURNT OR GLIDE CONDITION " 
CONSTANT THRUST « 0.0 , MASS * 8.77 
CONSTANT I XX =8.77 , IYY « 361.8 
CONSTANT BXCG = 10. 2 

:ND *" OF DERIVATIVE " 

"— — STOP ON ELAPSED TIME " 

CONSTANT TSTP « 1 . 99 
TERMTCT" . 6E. TSTP) 

.'ND *■ OF DYNAMIC " 

:ND *" OF PROGRAM ■ 



Figure A10-5. Listing of Model Definition for Missile Airframe Simulation 



********* ADVANCED CONTINUOUS SIMULATION 
ACSL TRANSLATOR VERSION 1 LEVEL 6¥ 8:1/00/11. 



LANGUAGE********* 
17.46.51. PAGE 



SUBROUTINE INIT(C) 
FORTRAN SUBROUTINE WHOSE ONLY JOB IS TO 

TRANSFER THE STABILITY DERIVATIVE MATRIX TO AN ARRAY IN LABELLED 
COMMON SO THAT IT MAY BE ACCESSED IN SUBROUTINE COEFF. NOTE NO 
COMMON BLOCK'S MAY BE DEFINED IN THE ACSL MODEL DEFINITION SECTION 



COMMON/ST ABD/ A ( 6 , 5 ) 

DATA LENGTH / 30 



/ 



TRANSFER BLOCK 

CALL XFERB<C, LENGTH, A) 
RETURN 

END 

SUBROUTINE COEFF <AL2, AL3, DL, MACH, C) 

•••-- COMPUTES SIX AERODYNAMIC COEFFICIENTS - 

THREE MOMENTS, C<1>, C<2) AND C<3>, AND THREE FORCES, C<4), C<5> 
AND C<6). MOMENTS ARE ABOUT AXES CENTRED AT THE REFERENCE POINT 
AND MUST BE CORRECTED >0R CENTRE OF GAVITY SHIFT. 



INPUTS 

AL2 
AL3 
DL 
MACH 

OUTPUTS 

C 

REAL- 



ANGLE OF ATTACK ABOUT *M2* - POSITIVE WIND FROM LEFT 
ANGLE OF ATTACK ABOUT *M3* •- POSITIVE WIND FROM ABOVE 
ARRAY OF FOUR FIN DEFLECTIONS 
MACH NUMBER (REAL) 



ARRAY OF SIX AERODYNAMIC COEFFICIENTS 
DL ( 4 ) , C < 6 ) 



COMMON/STABD/ A ( 6 , 5 ) 

- • • - - -COMPUTE EQU I VALENT CONTROL SURFACE DEFL- 
ECT. TONS FROM THE FOUR SURFACE ANGLES 
DL.A :=••• 0.25*<DL<3> + DL(4) - DLCI. ) - DL<2>> 
DL Y * . 50* ( DL ( 1 ) f DL ( 3 ) ) 
DLZ « 0.50*<DL(2) + DL<4>> 

- - COMPUTE EACH MOMENT ASSUMING IT IS LINEAR 

IN EACH OF THE ARGUMENTS 
l, 6 
A < J , 1 ) *DLA + A < J , 2 ) *DL Y \ A < J , 3 > *DLZ i A ( J , 4 ) * AL2 
+ A (J, 5)*AL3 



DO 110 J 
C ( J ) 







10 CONTINUE 
RETURN 

END 



Figure A10-6. 



Listing of FORTRAN Routines Included in Model Definition of Missile Airframe 

Simulation 
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The DERIVATIVE section is split up into logically connected code sequences or modules that help in 
documenting the simulation. Modules assist in checkout since individual code sequences can be removed and 
assigned to individuals for verification, so splitting a simulation development task among a team. We have 
used Control Data's UPDATE utility to maintain modules as common decks for easy access and modification. 
The simulation model is then a simple DECK containing ACSL structure statements and CALLs to the 
appropriate module. 

In the missile airframe module, vector arrays are specified, then constants followed by the code to 
compute the derivatives of the state variables. For this simplified case, the aerodynamic characteristics are 
determined by values in the five by six matrix A that contains the stability derivative coefficients. Function 
tables are defined for roll (CLP) and pitch/yaw (CMQ) damping as functions of Mach Number. The 
following discussion now references the code section that starts in the middle of Figure A 10-4. First the missile 
velocity magnitude is obtained from: 

MVM = SQRT(DOT(VM, VM)) 

where VM is a three component vector velocity in the E frame. DOT is an external function that evaluates 
the dot product of two three component vectors. The next step is to form the direction cosine matrix ME, which 
is a three by three matrix that transforms vectors expressed in the E frame to components in the M frame. 
It can be calculated knowing the three angles ^ M , M and <f> M . A subroutine is available* MMK (matrix make) 
which is called so: 

CALL MMK(A, NA, B, NB, C, NC, M) 

which makes up a direction cosine matrix M that will transform between two axis systems that are connected 
by a rotation A about the NA axis, B about the NB axis and C about the NC axis. In the ACSL code the 
subroutine call is expressed 

CALL MMK(ME = FIM, 1, THM, 3, SIM, 2) 

which tells the sorter that ME is an output of the routine. For the FORTRAN program produced the 
translator will change the order of the arguments so that the outputs are on the right and ME will coincide 
with M of the above call. 

The next step is to use this direction cosine matrix to obtain components of the missile velocity in the 
M frame from 

VM (M) = [ME] VM( e > 

The subroutine VECROT does this rotation and is called so: 

CALL VECROT(VMM = VM, ME) 

where again the order of the arguments will be inverted by the translator so that the actual FORTRAN call 
will be 

CALL VECROT(VM, ME, VMM). 

A corresponding subroutine INVROT is used later on that performs the inverse rotation 

VI = [ME]" 1 V2 
or 

CALL INVROT(Vl = V2, ME) 



The three dimensional geometry subroutines are provided in an optional library ULIB. 
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Lateral and vertical angles-of-attack are next calculated. The lateral angle-of-attack a 2 (=AL2) is the angle 
between Ml and the projection of the velocity vector on to the Ml - M3 plane and is positive for a positive 
rotation from Ml to the wind vector about M2 (wind from left). Vertical angle-of-attack a 3 (=AL3) is the 
angle between Ml and the projection of the velocity vector on the Ml - M2 plane and is positive for a positive 
rotation from Ml to the wind vector about M3 (wind from above). See Figure A 10-2. 



i.e., 



a 2 = tan l 



«3 



= tan -1 




rad 



rad 



Atmospheric density (p = RO) comes from the environment module calculated by 

p = p G exp [LROF(h)] slugs/ft 3 

Height h is the component of missile range along E2 or RM(2), and the log density function is used to reduce 
the dynamic range of the function and so make the straight line interpolation over 10 kft increments more 
accurate. The airframe module computes dynamic pressure from 



pV 2 



lb/ft 2 



Mach number is obtained from the velocity of sound - function of altitude - and missile velocity so 



MACH = 



MVM 



VS(h) 

Next dimensionless damping coefficients are obtained using normalized spin rates. The missile spin rate is 
expressed as a three component vector WM giving the rates as components resolved along the Ml, M2 and 
M3 axes. The damping coefficient components of the total moment coefficients are now given (P, Q and R 
are replaced in the model by WM(1), WM(2) and WM(3) respectively): 



CD(1) = Cgp(MACH) 



Pb 

2V 



CD(2) = C mQ (MACH) (££ 



CD(3) = C mq (MACH) 

From symmetry, the pitch and yaw damping derivatives are assumed identical so C m Q is used instead of 
C nR . Note since the calculation is of array elements the calculations are embedded in a PROCEDURAL block 
that lets the system know that all values of the array CD are calculated within the block. 
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Next the aerodynamic coefficients - three moment and three force - are calculated using a subroutine. 
They can be evaluated as functions of the two angles-of-attack, a 2 and a 3 , four fin deflections 5j . . . 8 4 and 
Mach Number, seven variables in all. One of the objects of this exercise was to study the effect of different 
techniques in evaluating aerodynamic coefficients from full nonlinear tables of data to simple linear stability 
derivatives. For the case shown simple linear stability derivatives were used embedded in the (A) matrix passed 
to the COEFF subroutine in the INITIAL section (CALL INIT . . .). This (A) matrix is a five by six array 
having components 



(A) = 



c m 


c JL8y 


c £8z 


c jia2 


c jia3 


c m5a 


c m5y 


c m5z 


c ma2 


c m«3 


c n5a 


c n5y 


c n8z 


c na2 


c na3 


c X5a 


c X6y 


c X8z 


c Xa2 


c Xa3 


c Y6a 


c Y5y 


c Y8z 


c Ya2 


c Ya3 


c Z6a 


c Z8y 


c Z8z 


c Za2 


c Za3 



The effective roll, yaw and pitch fin control deflections 5a, 8y and dz are obtained from 

5 a = 0.25 Hi - 8 2 + 5 3 + 5 4 ) 

8 y = 0.5 («! + 8 3 ) 

8 3 = 0.5 (8 2 + 8 4 ) 

Figure A 10-6 shows the implementation of subroutines COEFF and INIT to return the six component vector 
C_ having elements. 

C(l) - rolling moment coefficient, about Ml 

C(2) - moment coefficient about M2 

C(3) - moment coefficient about M3 

C(4) - force coefficient along Ml 

C(5) - force coefficient along M2 

C(6) - force coefficient along M3 

Now the aerodynamic acceleration can be obtained and stored as components of the vector n M . Aerodynamic 
acceleration is that produced by aerodynamic forces and excludes gravity. This quantity is that which would 
be read by any on-board accelerometers. 

"mi = (q S C x + THRUST)/MASS 

n M2 = qS Cy/MASS 

n M3 = q S C Z /MASS 

The rate accelerations have gyroscopic terms in the equations when applied to a normal spinning rigid body. 

Equations of motion of a conventional aircraft have the form (neglecting I xz ). 

Ix^qSbCj + aY-I^QR 

I Y Q = qScC m + (I z -I x )RP 



Now for a missile having quadrant symmetry, the lateral moments of inertia are equal i.e., 
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I Y = I Z 

and in addition the long thin shape assures that the roll moment of inertia is small i.e., 

I X « Iy 

Using this information the equations become 

i] 



I X P = q Sb [C 8 + C c p 0^) 

I Y Q = q Sc [C m + C mQ f^j] + I Y PR 

I Y R=qSc[C n + C mQ ^j] -IyPQ 



The translational accelerations are rotated from the missile frame (M) to the ground or reference frame 
(E) using subroutine INVROT which accomplishes 

NM (E) = [ME]" 1 NM (M > 

The velocity derivatives are obtained by including the acceleration due to gravity 

V M (ED = N M (ED 
V M (E2) = Nm (E2) . G 

V M <E3) = N M <E3) ^ 
The angular rate derivative i^ M is obtained from the standard gimbal equation 

'Am = (Q Cos (f> M - R Sin <f> M )/Cos d M 
and now the three angles are obtained by integrating the respective rates. 

^ M = INTVCWm, ^mic) 

M = INTEG(Qsin0 M +'R Cos </> M , #mic) 

M = INTEG(P - i^ M Sin0 M , MIC ) 

Note since the derivative is an expression, the operator INTEG must be used for M and M . Vector integration 
for \p M works since the arguments can be considered as one component vectors. An extra assignment statement 
is saved since the derivative must be a unique name. The missile angular spin vector and velocity vector are 
integrated from the respective accelerations by the two lines: 

WM = INTVC(WMD, WMIC) 

VM = INTVC(VMD, VMIC) 

The three elements of VM are transferred to the range derivative vector RMD so that the derivative has a 
unique name. For vector integration the derivative cannot be a state since it is allocated to the derivative block 
and the storage conflict would result. Now the three component range vector is declared to be the integral 
of the three component derivative or: 

RM = INTVC(RMD, RMIC) 

which completes the specification of the airframe six degree of freedom module. 

The last line describes the motor module - see bottom of page A 10-5 - that specifies zero thrust and 
constant mass and inertias. In actual practice a motor model must compute thrust as a function of time from 
motor ignition and the varying mass, inertia and center of gravity position, all of which significantly effect 
flight characteristics. 
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The output stream from exercising the model is shown in Figures A 10-7 through A 10- 14. Starting at 
Figure A 10-7, the TITLE is established and then the PREPAR list defined. Fixed fin deflections of -0.01 
radians are specified for fins two and four, so that the motion is in the vertical plane - missile nose tends to 
go up. After the START, conditions are established for strip chart plots (STRPLT = .T.), with grids 
(GRDSPL = .T.), a half scale factor (PSFSPL = 0.5) and a longer x-axis (XINSPL = 10.0). This allows 
us to stack more variables on a page and the following PLOT command produces the response of Figure A 10-8. 
The PRINT "ALL" command lists the numerical values which extends through the end of Figure A 10-9. 
Next, the ANALYZ command is used to find a trim condition, and evaluate the Jacobian and the eigen values. 
Seven state variables (RM, VM and FIM) are frozen leaving five to be varied. The five roots are listed at 
the top of Figure A 10- 10, a real pole at -4.21 and double complex poles at -1.2 ± 16.7j. In order to see the 
trim condition found, the state variables are transferred back to the initial conditions by REIN IT and then 
one pass through the code with debug output is ensured by setting the stop time (TSTP) to zero and the debug 
parameter (NDBUG) to one. The START produces the debug list which extends through Figure A 10-11. 

The next ANALYZ command evaluates the Jacobian of the full twelve by twelve state matrix with 
corresponding eigen values at the bottom of Figure A 10- 12. The last page of output shows moving the center 
of gravity to the rear (reference point forward) which models a launch or unburnt motor condition. The plot 
of the response is shown in Figure A 10- 14 with the matching eigen values listed in Figure A 10- 13. Note the 
response is more oscillatory and the dominant roots have become more unstable. 

The last figure, Figure A10-15, shows the output obtained from the subroutine LISTD when a dictionary 
is prepared defining all the variables used in the model. The following statements were placed in the INITIAL 
section: 

LOGICAL DICTN $ CONSTANT DICTN = .FALSE. 

IF(DICTN) CALL LISTD(5) 

DICTN = .FALSE. 

At run time DICTN was SET = .TRUE, and the START card was followed by the dictionary definitions 
in alphabetical order. Note the indication at the end of the listing that shows definitions were not supplied 
for SIMIC and S. See Appendix B-3 for more details. 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 



81/08/11. 17.47.56. 



PAGE 



SET TITLE* "MISSILE LONGITUDINAL DYNAMICS " 

PREPAR T, NM, WM, AI...2, AL3, VM, SIM, THM, EIM, MACH, Q 

SET DL<2>*-0.0i,DL<4>=-0.01iTITLE<5>«"STI=:P IN FIN" , "NOMINAL CG' 

START 

SET STRPLT*. T. , GRDSPL™. T. , PSF8PL*0. 5, XINSPL-10. 0, XTIi3PL«2. 

S PRNPLT-. F. , TCWPRN»72 

PLOT NM ( 2 ) , WM ( 3 ) , AL3 * VM ( 2 ) , THM 

PRINT " NC I PRN " *5 , " ALL " 



INE 




T 




NM ( 1 ) 




NM < 2 ) 




NM<3) 


W 


1(1) 





0. 




0. 




-18. 


473875 


0. 




0. 




5 


0. 


1000000 


0. 




75. 


759493 


0. 




0. 




10 


0. 


2000000 


0. 




112. 71735 


0. 




0. 




15 


0. 


3000000 


0. 




68 . 


116555 


0. 




0. 




20 


0. 


4000000 


0. 




57. 


548205 


0. 




0. 




25 


0. 


5000000 


0. 




77. 


826550 


0. 




0. 




30 


0. 


6000000 


0. 




79. 


953864 


0. 




0. 




35 


0. 


7000000 


0. 




71. 


025331 


0. 




0. 




40 


0. 


8000000 


0. 




71. 


.1.39716 


0. 




0. 




45 


0. 


9000000 


0. 




74. 


920565 


0. 




0. 




50 


1 . 


0000000 


0. 




74. 


409056 


0. 




0. 




55 


1 . 


1000000 


0. 




72. 


827707 


0. 




0. 




60 


1. 


2000000 


0. 




73. 


202458 


0. 




0. 




65 


1. 


3000000 


0. 




73. 


805978 


0. 




0. 




70 


1. 


4000000 


0. 




73. 


544976 


0. 




0. 




75 


1. 


5000000 


0. 




73. 


283640 


0. 




0. 




80 


1. 


6000000 


0. 




73. 


389862 


0. 




0. 




85 


1 . 


7000000 


0. 




73. 


452074 


0. 




0. 




90 


1. 


8000000 


0. 




73 . 


360048 


0. 




0. 




95 


1. 


9000000 


0. 




73 . 


302325 


0. 




0. 




100 




0000000 


0. 




73. 


304638 


0. 




0. 




INE 




WM<2> 




WM ( 3 ) 




AL2 




AL3 


VM<1) 





0. 




0. 




0. 




0. 




2154. 


8000 


5 


0. 




0. 


0966540 


0. 




• . 


0072943 


2154. 


7878 


10 
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Figure A10-7. Run-time Commands and Output Stream for Missile Dynamics Evaluation 
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Figure A10-8. Strip Chart Plots of Missile Response to Fixed Fin Deflection - Norminal 

Centre of Gravity 
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Figure A10-9. Output Stream from Missile Dynamics Evaluation 
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Figure A10-10. Output Stream (Eigen Values and Debug) from Missile Dynamics Evaluation 
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Figure A10-11. Output Stream from Missile Dynamics Evaluation 
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Figure A10-12. Output Stream (Jacobian and Eigen Values) from Missile Dynamics 

Evaluation 
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Output Stream from Missile Dynamics Evaluation Forward Center of Gravity 

Position. 
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Figure A10-14. Strip Chart Plots of Missile Response to Fixed Fin Deflections - Aft Centre 

of Gravity 
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Figure A10-15. Dictionary Listing Produced from Subroutine LISTD in the INITIAL section 
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Al 1-1 where the plant is represented by a transfer function: 
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This system can be visualized as a water level control problem where the valve controlling the flow into the 
tank has a one second time constant. An instantaneous level measurement, X, is assumed which is compared 
with a desired level X c and the error sampled every tenth of a second. A digital controller is to be designed 
that takes the samples of level error E and outputs a command U to the valve so closing the loop. This control 
is taken to be a linear combination of the current error E n , the previous error E n . l5 and the previous control 
U n _i. Expressed in Z-transform notation this becomes 

U a -ajz-l 

E 1-bjz-l 
In terms of equivalent lead/lag network, the a and b coefficients above can be written 
T 
a ° = TLAG 6XP (_Ts (1/T]LAG " 1/T LED ) 

= T LED 

T LAG 6XP ( " T S /T LAG); b } = exp (-T S /T LAG ) 

which gives unity steady state gain and reduces to a zero order hold when the lead and lag time constants are 
equal. 

The program or model definition code to represent this plant and control system is shown in Figure 
All-2. In this model we have made use of the multiple derivative section capability where different blocks 
of code can be given their own integration algorithm and step size. 

In the INITIAL section the coefficients of the digital filter are calculated so that the controller response 
can be thought of in terms of equivalent lead/lag time constants. At the same time the discrete control (UD) 
and the previous error (EP) are initialized to zero. Since they are needed before they are calculated, they are 
effectively system state variables, though not obtained by integration. 

In the continuous section, the plant is modelled by the one line: 

X = INTEG(REALPL(TAD, KU*U), 0.0) 

The control (U) is selected to take either the discrete value (UD) or that produced by a continuous lead-lag 
compensator (UC) based on a switch DISC i.e. 

U = RSW(DISC, UD, UC) 

which will allow test at run time between the effect of the discrete or the continuous controller by changing 
the logical variable DISC from .FALSE, to .TRUE. Integration step size for this section will be 0.02 seconds, 
specified both by the communication interval (CINT) and by the global MAXT. The reason for such a 
comparatively short step is in order to record data during the sampling so that the discrete hold (sample 
interval 0.1 sec) can be seen on the plots. The communication interval chosen gives five points for every sample, 
so squaring the corners when the control (U) is plotted in Figures Al 1-4 through Al 1-6. If the communication 
interval had been increased to 0. 1 seconds or more, the straight lines drawn between points would have masked 
the sampling action, though the simulation would still behave the same internally. 
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In the DISCRETE block, the step size is controlled by the INTERVAL statement which specifies the 
name of the controlling variable as TSAMP with a value of 0. 1 seconds. The code will execute once a T equals 
zero and then once thereafter, every 0.1 seconds. Since the order of the code is important, it is bracketted by 
PROCEDURAL . . . END statements which prevent the reordering of any code within the block. Notice that 
there is no input/output list on the PROCEDURAL statement since the entire DISCRETE section is made 
procedural. The input/output list is only necessary to ensure correct ordering relative to other statements 
within the same DISCRETE or DERIVATIVE section. Statements will never be reordered across a section 
boundary. 

Within the PROCEDURAL block, the new control is calculated based on the previous control, previous 
error and current error or 

UD = B1*UD + AO*EP 

and then the current error is transferred to the previous error by EP = E. If we hadn't used the PROCEDUR- 
AL block, the EP assignment would have been moved in front of its use in the UD calculation so both E and 
EP would now contain the current error, when the new UD was calculated, not what was intended in the code. 

With the use of the DISCRETE section, the continuous section is guaranteed to be at the sample time 
when the DISCRETE section code is executed, so the value of current error (E) used is that actually at the 
sample time: A new value of control is calculated that is immediately available to the continuous section for 
use over the next sample interval. This action models a control computer with no calculation delay. In actual 
practice, dedicated controllers are usually compute bound, sampling from the outside world, calculating the 
new control action through the sample period and transferring this value back to the continuous section at 
the same time that a new sample is obtained. Modelling this action requires modifying the control calculation, 
first assigning the next control to the output control and then calculating a new next control i.e. 

UD = UDN 

UDN = B1*UDN + AO*E - A1*EP 

Now both UD and UDN are effectively state variables and so must be initialized. 

The execution of the model as listed in Figure Al 1-2 is shown in Figure Al 1-3. The first run (START) 
is followed by a column PRINT of the numeric values and a line plot of the base-line response shown in Figure 
Al 1-4. Next the OUTPUT list is CLEARed and two more runs are made - first with a equivalent lead/lag 
ratio of 5:1 (see Figure All -4) and then with a reduction of the loop gain from 5.0 to 1.0 (See Figure All -5). 
Lastly the response of the continuous feedback compensator is obtained, using the same values of lead/lag 
'time constants and gain, by setting the switch variable DISC to .FALSE. The response is shown in Figure 
All-7. 
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Figure Al 1-1 . Discrete Control System Block Diagram 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION .1. LEVEL 6F 81/07/ 1 3. 1 5. 16. 03. PAGE i 

PROGRAM DISCRETE SAMPLED COMPENSATOR 

■»■ - MODELS A CONTINUOUS PLANT WITH EITHER A ' 

" CONTINUOUS OR DISCRETE PEED BACK CONTROLLER WRAPPED AROUND IT. 
" PLANT CAN BE VISUALISED AS A LEVEL CONTROLLER USING VALVE " 
u WITH SINGLE LAG TIME CONSTANT <« 1 SECOND) " 

LOGICAL DISC 

CONSTANT KU « 5.0 , TAD « 1.0 

CONSTANT DISC = .TRUE. > XC = 1.0 

CONSTANT TLED = 0.5 .- TLAG « 0.5 

CONSTANT TSTP = 4. 9 

INITIAL 

C INTERVAL CINT = 0.02 

NSTEPS NSTP = 1 

MAXTERVAL MAXT = 0.020 

" - - CALCULATE Z TRANSFORM CONTROLLER GAINS ■ 

Bl « EXP< -TSAMP/TLAG) 

AO « TLED*EXP(-TSAMP*CI. . O/TLAG •••• 1 . O/TLED) )/TLAG 

A 1 « T L E D * E X P < • T S A M P / T L A G ) / T L A G 

" —- - INITIALISE PSEUDO STATE VARIABLES " 

UD = 0.0 

EP « 0.0 
END $" OF INITIAL " 

DER I VAT I VE CONT I NUOUS 

" ■ •• - ••- P L ANT MODEL ■ 

X « I NTEG < REALPL ( TAD , KU*U ) , . ) 

" - CONTINUOUS CONTROL ACTION " 

UC = LEDLAGCTLED, TLAG, E) 

E = XC - X 

H ™ - — - "--CHOOSE DISCRETE OR CONTINUOUS CONTROL " 

U •--• RSWaUSC, UBi UC) 

TERMT(T . GE. TSTP) 
END *■ OF CONTINUOUS SECTION ■ 

DISCRETE DISCRT 

INTERVAL TSAMP = 0. 1 
PROCEDURAL 

"•— -•-- - DISCRETE CONTROL IS LINEAR COMBINATION OF 1 

PREV CONTROL, PREV ERROR AND CURRENT ERR ' 
UD « B.1.*UD + AO*E •• A1*EP 

" - — CURRENT ERROR BECOMES PREVIOUS ERROR ' 

EP « E 
END $ B OF PROCEDURAL ' 
END $ B OF DISCRETE SECTION " 

END $» OF PROGRAM " 



Figure A1 1 -2. Model Definition Code for Discrete Sampled Compensator 
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ACSL RUN-TIME EXEC VERSION 1 LEVEL 6M 81/07/13. 15.16.54. 



PAGE 



S T I TLE*--' DISCRETE SAMPLED CONTROLLER" , TITLE<5>=*»BASE CASE 
SET TCWPRN«72 *" FORCE 3 COLUMN OUTPUT FORMAT " 



PREPAR T, U, X, E 
OUTPUT T,U,X, "NCIOUT" 
START 



■SO 







T 0. 




U 0. 










T 1.00000000 


U-0. 17060 


285 








T 2.00000000 


U-0. 32541 


587 








T 3.00000000 


U 0.34323663 








T 4.00000000 


U-0. 12205 


848 








T 4.92000000 


U-0. 06463 


D01 




PRINT- 


"ALI 


...", "NCIPRN 


"=-10 








LINE 




T 


U 


X 




E 





0. 




0. 


0. 


1. 


0000000 


10 


0. 


2000000 


0.9758129 


0.0930688 


0. 


9069312 


20 


0. 


4000000 


0.7998402 


0. 33/6jCjc\ 6 


0. 


6623774 


30 


0. 


6000000 


0.5032633 


0.6683773 


0. 


O *> J. O *~ *.. / 


40 


0. 


8000000 


0. 1565214 


1.0134606 


-0. 


0134606 


50 


1. 


0000000 


-0. 1706028 


1.3083497 


-0. 


3083497 


60 


1. 


2000000 


-0.4215391 


1.5065476 


-0. 


5065476 


70 


1. 


4000000 


-0.5613530 


1.5855153 


-0. 


■3 8 vj vj 1 *j 3 


80 


1. 


6000000 


-0.5800839 


1.5474411 


-0. 


5474411 


90 


1. 


8000000 


-0.4910931 


1.4154223 


-0. 


4154223 


100 


*.. . 


0000000 


-0.3254159 


1 . <c./c638»j4 


-0. 


2263854 


110 


*.. . 


2000000 


-0. 1236905 


1.0224804 


-0. 


0224804 


120 


it. . 


4000000 


0.0725356 


0.8427189 


0. 


1572811 


130 




6000000 


0.2284609 


0.7163382 


0. 


£.836618 


140 




8000000 


0.3214041 


0. 6vi88vjvj^. 


0. 


3411448 


150 


3. 


0000000 


0.3432366 


0.6711533 


0. 


3288467 


160 


3. 


2000000 


0.2998426 


0.7413469 


0. 


2586531 


170 


3. 


4000000 


0.2081127 


0.8487028 


0. 


1512972 


180 


3. 


6000000 


0.0913604 


0.9686219 


0. 


0313781 


190 


3. 


8000000 


-0.0257924 


1 . 0776326 


-0. 


0776326 


200 


4. 


0000000 


— . l^.Xl0vJOvJ 


1. 1574883 


-0. 


1574883 


210 


4. 


2000000 


-0. 1828818 


1. 1977512 


-0. 


19775.12 


220 


4. 


4000000 


-0.2021441 


1. 1966035 


-0. 


1966035 


230 


4. 


6000000 


-0. 1821059 


1. 1599839 


-0. 


1599839 


240 


4. 


8000000 


-0. 1318374 


1.0994379 


-0. 


0994379 


S CALPLT=. 


T. , PRNPLT 


*.F. , GRDCPL= 


.T. 







PLOT U,X 

OUTPUT "CLEAR" 

S TLED=2.5,TITLE<5) 

S KU =1.0,TITLE<5> 

" NOW COMPARE CONTI 

S T1TLE«"C0NTINU0US 

START 

PLOT U,X 

STOP 



X 0. 

X 1 . 30834973 
X 1.22638539 
X 0.67115330 
X 1. 15748828 
X 1.05753083 



s="KUs=5.0 TLED=2.5" $ START $ PLOT U, X 
="KU=1.0 TLED=*2.5" $ START $ PLOT U, X 
NOUS CONTROLLER " 
ANALOG FEEDBACK CONTROLLER" , DISC*--. FALSE 



Figure A1 1-3. Output Stream from Execution of Discrete Sampled Compensator Model 
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Figure A1 1-4. 



Plot of Control and Level against Time for Base Case, Discrete Sampled 

Compensator 
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Figure A1 1-5. Plot of Control and Level against Time for Lead /Lag Ratio of 5 
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Figure A1 1-6. Plot of Control and Level against Time for Reduced Loop Gain, Final Design 
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Figure A11-7. Comparison using Continuous Lead/Lag Feedback Control 
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12. ASPIRIN DOSAGE EVALUATION 

This model follows mathematically the aspirin concentration level in the blood stream of a person taking 
variable doses at various preset times. A similar program would be used to determine the concentration of 
any drug which had an exponential decay. The example was chosen to show how discontinuities can be 
introduced into the simulation state variables without having to recompute the values of the output of 
integrators, a matter that has to be left to the integration routine. In actual fact there are no true discontinui- 
ties in the physical world and one should really consider the dynamics of the ingestion process - the passage 
through the stomach wall or, if injected, the velocity of the hypodermic piston. These effects, however, would 
normally be approximated in most simulations as discontinuities if their time of action is short compared with 
the overall period of interest. 

The basic equation in the model is the exponential decay given by 

AC = -RC 

dt 

which says that the rate of change (decay) of concentration of (C) is proportional to the concentration. The 
constant of proportionality is a rate R. 

Since the concentration can change suddenly as doses are taken, we need to add a term indicating the 
total dose. As an integral equation, the concentration can now be expressed as 



C = f-RCdt+2 D { 



In the simulation model code this is written 

BLOOD = INTEG(-RATE*BLOOD, 0.0) + TOTAL 

where BLOOD is the concentration in grains and TOTAL contains the sum of the doses up until the current 
time. 

The listing of the model definition section is shown in Figure A 12-1 which defines two arrays, TDOS 
for the time of the dose and DOSE for the actual dose at the corresponding time. An integer index INDX 
is used to advance through the arrays. The arrays are preset so that a larger dose of the five tablets (25 grains) 
is given initially and only two hours are between the first and second doses. Eight hours lie between the fourth 
and fifth doses and the last effective dose is at thirty hours. 

In the INITIAL section INDX is started at one to access the initial dose time and TOTAL, effectively 
a state variable, is set to zero. In the DERIVATIVE section the BLOOD and URINE levels are calculated, 
the URINE being the total amount excreted. The URINE rate is the opposite of the rate for BLOOD which 
means that what is removed from the bloodstream appears directly in the urine. 

The dose time and dose accumulation is performed within a PROCEDURAL . . . END block which is 
treated as a whole. Within the PROCEDURAL block, the current dose time TDOS (INDX) is tested against 
the independent variable time (T). If it's not time for a dose the rest of the block is bypassed. If the dose time 
is equalled or exceeded, the dose is added to total by 

TOTAL = TOTAL + DOSE(INDX) 

and then the index is incremented by one, ready for the next dose. 
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In writing this type of simulation model there is an inclination to change the state variable itself i.e, 

BLOOD = INTEG(-RATE*BLOOD, 0.0) 

BLOOD = BLOOD + DOSE(INDX) 

This operation is illegal since the value in the state variable BLOOD is only a temporary copy of the actual 
state variable which is saved internally by the integration routine. Note if we convert the BLOOD integration 
to the expression form: 

BLOOD = -INTEG (RATE*BLOOD, 0.0) 

BLOOD is no longer a state variable, it is now just the negative of the actual state variable (the output of 
the INTEG operator) which will be given a generated name ZOnnnn. 

When we add TOTAL to the integration a similar transformation occurs so that BLOOD is no longer 
a state variable but now we can manipulate TOTAL in such a way that the answer comes out right. 

The run-time output stream is shown in Figure A 12-2. After the START a column PRINT is obtained 
to list numeric values and then a PLOT, the output of which is shown in Figures A 12- 3 and A 12-4. The first 
figure shows the format for the strip plots (STRPLT = .T.) and the second for the standard line plots 
(CALPLT = .T.) where all curves are superimposed. The actual plot line reads 

PLOT TOTAL, TAG' = '+URINE', URINE, 'SAME', 'OVER', BLOOD 

The tag string is used to add the extra label on the TOTAL axis, 'SAME' ensures identical scales and 'OVER' 
suppresses the now redundant axis for URINE. 

The RATE parameter is changed to 0.28 and a second run made, followed by a PLOT. Only the strip 
plot is used in Figure A 12-5 which shows the extra strip generated when 'OVER' was eliminated from the 
plot line. From the plot it can be seen that the higher decay rate has reduced the average blood level 
concentration. 

The discontinuties introduced into TOTAL violate the restrictions on the state variables placed by most 
integration algorithms, i.e., the derivatives shall be continuous and differentiable. In practice, fixed step size 
algorithms step over these discontinuities very well with only minor differences in the calculated solutions 
when the step size changes. In the code we make no attempt to synchronize the discontinuity with the 
integration step so it can occur at any of the derivative evaluations that make up the step. This means that 
this particular step (which contains the discontinuity) will be in error but the answers will only be slipped a 
fraction of a step length. It is this requirement that dictates the integration step size. From the decay rate 
of the aspirin (0.14 or 0.28) step sizes of two or three hours would do quite well in integrating the differential 
equations. However, uncertainty in dose times of this much is too large an error. In the model, the step size 
is set (via MAXT) to 0.05 or 3 minutes to reduce the uncertainty which now seems tolerable in light of what 
we are trying to simulate. 
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*********ADVANCED CONTINUOUS SIMULATION LANGUAGE********* 
ACSL TRANSLATOR VERSION 1 LEVEL 6F 81/07/13. 15.15.59. PAGE 1 

PROGRAM ASPIRIN DOSAGE TEST 

FOLLOWS CONCENTRATION OF DRUG IN BODY » 

" GIVEN A DOSAGE HISTORY. USES EXPONENTIAL ELIMINATION RATE " 
" WITH FIXED TIME CONSTANT " 

* DEFINE TYPES AND ARRAY DIMENSIONS" 

INTEGER INDX , INDXMX 
ARRAY DOSE (9) , TD0S(9> 

» DEFINE PRESET CONSTANT VALUES" 

CONSTANT RATE = 0.14 , INDXMX = 9 

TSTOP =49.0 
CONSTANT DOSE = 25.0 ,15.0 ,15.0 

,15.0 , 15.0 ,15.0 
, 15.0 , 15.0 , 0.0 
CONSTANT TDOS =0.0 ,2.0 ,6.0 

,10.0 , 18.0 , 22. 
, 26.0 ,30.0 , 99.0 

• DEFINE COMMUNICATION INTERVAL AND INTEGRATION STEP 

CINTERVAL CINT =0.5 
MAXTERVAL MAXT = 0.05 
NSTEPS NSTP * 1 
INITIAL 

START WITH FIRST DOSE, NONE PRESENT" 

AT BEGINNING" 
INDX = 1 
TOTAL =0.0 
END $" OF INITIAL" 
DYNAMIC 
DERIVATIVE 

■ AMOUNT LEFT IN BLOOD STREAM" 

BLOOD « INTEG(~RATE*BLOOD, 0.0) + TOTAL 

TOTAL AMOUNT EXCRETED AS URINE" 

URINE = INTEG( RATE*BLOOD, 0.0) 

» TEST F0R DOSE, BUMP TOTAL" 

PROCEDURAL (TOTAL, INDX = DOSE, TDOS) 
> IF N0T TIHE F0R dose" 

IFCT.LT. TDOS (INDX)) GO TO LI 

» ADD NEW D osE TO TOTAL" 

TOTAL = TOTAL + DOSE (INDX) 

GET SET F0R NEXT DOSE" 

INDX = INDX + 1 
LI.. CONTINUE 
END $" OF PROCEDURAL" 

END $" OF DERIVATIVE" 

ST 0p W HEN GIVEN LAST DOSE" 

TERMTdNDX.GT. INDXMX .OR. T.GE. TSTOP) 
END $" OF DYNAMIC" 
END $" OF PROGRAM" 



Figure A12-1. Listing of Model Definition for Aspirin Dosage Evaluation 
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ACSL RUN-TIME EXEC 


VERSION 1 


LEVEL 6M 81/07/13. 15.16. 


33. 


PAG 


SET TITLE =•• "ASPIRIN DOSAGE TEST" 








S TCWPRN=72 *" FORCE 3 COLUMN 


OUTPUT WIDTH 


■ 






S PRNPLT=.F. , CALPLT* 


= .T. ,STRPLT 


■=. T. , GRDSPL=. 


T. 






PREPAR 


T, BLOOD, URINE, TOTAL, 


INDX 








START 














PRINT 


"NCIPRN"=-5, "ALL" 










LINE 


T 


BLOOD 


URINE 


TOTAL 




INDX 





0. 


25.000000 


0. 


25.000000 




X- 


5 


2.5000000 


31.619426 


8.3805736 


40. 000000 




3 


10 


5.0000000 


O 1 ) OO 1 Q~X~Z 


17. 718167 


40.000000 




3 


15 


7.5000000 


27.874691 


27. 125309 


55.000000 




4 


20 


10.000000 


19. 642963 


35.357037 


55.000000 




4 


JL..\J 


12.500000 


24.424815 


45.575185 


70.000000 




5 


30 


15.000000 


17. 211877 


52.788123 


70.000000 




5 


35 


17.500000 


12. 129004 


57.870996 


70.000000 




5 


40 


20.000000 


19.897147 


65. 102853 


85.000000 




6 


45 


22.500000 


28.023507 


71.976493 


100.00000 




7 


50 


25.000000 


19.747832 


80.252168 


100.00000 




7 


55 


27.500000 


26. 089011 


88,910989 


115.00000 




8 


60 


30.000000 


18.384615 


96.615385 


115.00000 




8 


65 


32.500000 


23 . 538073 


106.46193 


130.00000 




9 


70 


35.000000 


16.586999 


113.41300 


130.00000 




9 


75 


37.500000 


11. 688661 


118.31134 


130.00000 




9 


00 


40.000000 


8.2368602 


121.76314 


130.00000 




9 


85 


42. 500000 


5.8044173 


124. 19558 


130.00000 




9 


90 


45.000000 


4.0903037 


125.90970 


130.00000 




9 


95 


47.500000 


2.8823883 


\ £./ . 11/61 


130.00000 




9 


PLOT TOTAL, "TAG"="+ 


URINE", URINE, "SAME", "OVER", BLOOD 






DISPLY 


RATE, TDOS, DOSE 












RATE 0. 14000000 


TDOS 0. 




2.< 


50000000 




6.00000000 


10.0000000 


18 


. 0000000 




22.0000000 


26 . 0000000 


30 


. 0000000 




99.0000000 


DOSE 25.0000000 


15 


. 0000000 




.1.5. 0000000 


15.0000000 


15 


. 0000000 




15.0000000 

A 


15.0000000 


15 


. 0000000 


SET RATE*0 . 28 , TITLE ( 5 ) « " RATE = 


0.28" 









START- 
PLOT TOTAL , UR I NE , " SAME ' 
DISPLY RATE, TDOS, DOSE 
RATE 0.28000000 
6.00000000 
22.0000000 
99.0000000 
15.0000000 
15.0000000 
0. 
STOP 



BLOOD 



TDOS 0. 

10. 0000000 
26.0000000 

DOSE 25.0000000 
15.0000000 
15.0000000 



2.00000000 
18.0000000 
30. 0000000 
15.0000000 
15.0000000 
15.0000000 



Figure A12-2. Output Stream from Aspirin Dosage Evaluation Study 
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Figure A12-3. Strip Plot of Blood Concentration, Total Dosage and Urine Elimination, Rate in 

0.14 
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Figure A12-4. Line Plot of Blood Concentration, Total Dosage and Urine Elimination 
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APPENDIX B 
GENERAL PURPOSE UTILITY SUBROUTINES 

A number of general purpose subroutines have been developed and included in the system library. 

1 . AGET (name, a), APUT (name, a) 

Obtain the values from or put values into a variable array in either the user or system dictionary. Useful 
in a separate FORTRAN subroutine to obtain or return isolated values not passed through the calling 
sequence. Necessary in order to access values from the system dictionary. Arguments are: 

name - Hollerith representation of dictionary name to be accessed, i.e. Direct Hollerith constant (3HDIS) 
or symbol preset to Hollerith constant. 

a - array of size equal to or greater than that of 'name' - may be a scalar of dimension 1 . 

For AGET all elements of 'name' are returned in successive locations of 'a'. APUT works in the opposite 
direction and fills all positions of the array 'name' with the contents of successive locations of 'a'. Standard 
form of use would be 

CALL AGET (6HNPXPPL, NPX) 

CALL APUT(5HTITLE, NEWTTL) 

where NEWTTL is dimensioned to contain at least 120 characters (12 words on CDC 6000/7000. 20 on 
UNIVAC 1 100 and 30 on 32 bit hex machines IBM 360/370, SEL etc.). See RGET, IGET and VPUT for 
changing individual elements of an array. 

NOTE: These functions require a full dictionary search and if placed in a loop executed every 
calculation interval will use an excessive amount of computer time. 

2. BLDDCT (nHname, name, type, size) 

NITBLD (length) 

Build dictionary allows variables in other FORTRAN subroutines and COMMON blocks to be added 
to the ACSL dictionary. Since labelled COMMON block locations are defined at load or link-edit time, this 
operation must be performed once at the start of each simulation study. The typical requirement is to add 
variables (XVEL and IPNT are used in the example) that are in external common blocks (/USER/is used) 
that communicate between FORTRAN subroutines external to the ACSL simulation model definition. The 
actual number of variables and common blocks depends on the particular situation and can be large. 

In order to add the example names to the dictionary, write a subroutine so 

SUBROUTINE ADDNMS 

COMMON/USER/IPNT, XVEL 

COMMON/ZZDCT/DUMMY(1000) 

CALL NIT BLD(1000) 

CALL BLD DCT(4HIPNT, IPNT, 2, 1) 

CALL BLD DCT(4HXVEL, XVEL, 1,1) 

RETURN 
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END 

and call this from the pre-initial section of the ACSL model definition code i.e. 
PROGRAM TO EXTEND DICTIONARY 
CALL ADDNMS $ 'ADD NAMES TO DICTIONARY' 
INITIAL 

END $ 'OF PROGRAM' 

Alternatively all the code can be placed in the main program and then use the P option on the translator to 
indicate it is user supplied. 

In the ADDNMS subroutine, the external COMMON blocks can be referred to (no COMMON blocks 
can be included in the ACSL model definition). The dictionary COMMON block/ ZZDCT/ must be included 
and extended beyond the length established by the ACSL translator, which normally will size the dictionary 
to just fit all the names in the model definition (2 words per name in machines with six or more characters 
per word, 3 words per name for machines with 4 or 5 characters/ word). In the example, the dictionary 
COMMON block is extended to a thousand words, which length is then communicated to the extension 
program via the NITBLD call. This must be present since the BLDDCT subroutine has no idea how much 
space is available at the end of the standard ACSL dictionary. 

The actual calls to BLDDCT pass a Hollerith version of the new name, the name itself which really 
corresponds to the address in the COMMON block, and an integer indicating type and an integer indicating 
size. The types are one for REAL, two for INTEGER and three for LOGICAL. Size must be the array size 
if an array (product of dimensions if more than one) or one if 'name' is a scalar. 

The action of BLDDCT is to search through the dictionary to the end and then add the entry correspond- 
ing to 'name', moving the dictionary terminator one block. An error is reported if 'name' is already in the 
dictionary or if the end of the dictionary would have to be extended beyond the length established by the call 
to NITBLD. 

Once the name has been added to the dictionary, all run-time references can be made just like any other 
ACSL variable with the data being transferred to and from the external COMMON blocks 

OUTPUT XVEL 

DISPLY IPNT 

All the ACSL run-time commands can be used to PLOT, PRINT, SET these variables rather than having 
to move everything into the main ACSL common block /ZZCOM/. 

3. DEBUG 

A call to this routine will produce a debug list of all variables, excluding arrays greater than MALPRN 
(maximum array limit for print), on both PRN and DIS units. Described in Section 7 is the technique of 
setting NDBUG to a positive integer whereby a debug list is produced at the end of every derivative evaluation. 
While useful as a checkout tool, with large programs this action can produce an over-whelming amount of 
output. Selective output can now be obtained by 

IF(logical condition) CALL DEBUG 

included in the DERIVATIVE section. Including the statement 

CALL DEBUG 
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in the DYNAMIC section produces the entire list at each communication interval and is synonymous with 
asking for the OUTPUT of all variables. Including 

IF(DUMP)CALL DEBUG 

in the TERMINAL section is a useful artifice since all final values are displayed as well as the initial 
conditions for that run. 

4. IGET(nHname,i) RGET(nHname,i) 

Obtain the value of a variable (integer = IGET, real = RGET) in the user or system dictionary. For 
use primarily for selecting elements of arrays since AGET and APUT should be used for scalars. Arguments 
are: 

name - Hollerith representation of dictionary name to be accessed i.e. symbol preset to Hollerith 
constant or direct Hollerith constant (3HPRN) 

i - integer constant or variable denoting element of array 

Standard form of use would be 

WORD = IGET(5HTITLE, 4) 

NOTE: These functions require a full dictionary search and if placed in a loop executed every 
calculation interval will use an excessive amount of computer time. 

5. INTEG 

In order to provide flexibility in trying new and improved integration algorithms, it is possible to 
incorporate a user written routine via this subroutine (INTEG). Setting IALG=7 will transfer control to this 
routine at the beginning of every integration step. In order to write an effective INTEG routine, familiarity 
with the ACSL run-time routines ZZINTG, ZZRKIN, ZZMVM, ZZNITS and ZZNITA is essential. 

6. LISTD (file) 

Provides a listing of the user dictionary and current variable values along with any explanation of 
variables supplied on the named file. Used mainly for reports, it requires preparing a dictionary with variable 
name and definition. The argument 'file' is an integer constant or variable defining a file containing the 
definitions or card images. 

col 1-9 variable name, left justified 

col 10 continuation indicator in sequence 0,1,2,3 etc. 

col 11-80 definition 

Standard form of invocation would be in the INITIAL or TERMINAL section on a switch 

IF(LIST)CALL LISTD(5) 

LIST = .FALSE. 

Logical unit five is normally the input file so the dictionary would follow immediately behind the START 
card. The dictionary is terminated with a blank name field. When the definition must be continued beyond 
column eighty, continuations can be used which consist of a non-blank character in column ten. The name 
field in this case is ignored and just the extra definition is listed out. For convenience in ordering the initial 
dictionary repeat the name on each continuation card, numbering the cards in column ten 0, 1 , 2, 3 etc. Now 
a standard sort on columns one through ten will produce an alphabetical order with continuation cards in their 
correct place. Note that zero is used in column ten to start a continuation sequence and acts just like a blank. 
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The reason for using a zero is that in some computer systems blanks will collate after numbers rather than 
before. 

When used with logical unit five, the dictionary definitions appear on the run-time drive file immediately 
after the START and the following card images will be read until a blank or end-of-file. 

7. LOG 

This routine can force a data recording and output list from within the ACSL model definition or from 
any external FORTRAN subroutine. 

CALL LOG 

will reset the NCIOUT count of the OUTPUT statement, forcing a value listing. All the variables on the 
PREPAR list are recorded for later PRINTing or PLOTting. 

8. RGET (nHname, i) 

Real get - - see IGET 

9. SET (value, name, times) 

A useful subroutine that is provided primarily to initialize arrays and set all elements to a given value. 
Standard form of use is 

CALL SET (v, x, n) 

where the value of the expression v is placed into n locations of array x. i.e. 

CALL SET(0.0, ARR(5), 3) 

zeros the fifth, sixth and seventh elements of array ARR. No check is made to see whether these elements 
actually exist. 

10. TIMER 

Program execution time can be estimated by use of this subroutine placed in the INITIAL, DYNAMIC 
or TERMINAL sections. The derivative evaluation routine is called one hundred times and the average 
central processing time used per evaluation reported. It must not be called from the DERIVATIVE section 
since it will then be activated recursively and the program will abort with an error message (TIMER 
CALLED FROM DERIVATIVE SECTION) 

1 1 . VPUT (name, i, value) 

Place a value in a named variable in either the user or system dictionary. Arguments are: 

name - a Hollerith constant or variable defining a name in either the user or system dictionary 

i - the element number in the array 
value - a constant, variable or expression that corresponds in type to the named variable 

Standard form of invocation would be 

CALL VPUT(5HARRAY, 4, DATE) 

NOTE: This subroutine requires a full dictionary search and if placed inadvertently in a loop will 
use an excessive amount of computer time. 

12. WEM (nH message, nchar) 

Error messages may be written using the ACSL standard output interface by this subroutine. Standard 
form of use is 
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CALL WEM(nH message of length n characters, n) 
which will write an error message on both PRN and DIS logical units if different. 

13. WRITG 

Write integration intermediate data. Primary use is in debugging the variable step integration routines 
(IALG = 1 or 2). The state history stacks and error tables are listed. Should normally be placed at the end 
of the DERIVATIVE section. Data is written on the logical unit number contained in system variable PRN. 
Standard form of invocation is: 

CALL WRITG 

14. XFERB 

A transfer block routine is provided for moving arrays from one place to another. Useful for initialization 
instead of forming DO-loops. Standard forms of call are 

CALL XFERB(x, n, y) 

CALL XFERB(y = x, n) 

which takes n elements from array x and moves them to array y. No check is made to see whether these 
elements are contained in the arrays. 
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APPENDIX C 
ACSL SYSTEM SYMBOLS 

Certain system constants can be changed if not used in the simulation model to allow greater flexibility. 
These names are generated by the first three characters to describe the action and the last three characters 
to describe the processor. 

- PPL refers to printer plots 

- CPL refers to line or Calcomp plots 

- SPL refers to strip plots 

- PLT refers to plotting in general 

- ITG refers to integration 

- PRN refers to printed outputs 

These variables can all be changed by SET statements. The value set must agree in type - i.e., integer 
to integer, logical to logical, real or integer into real. The nominal value preset is given below the symbol. 

1 . Refers to Plots in General 



CALPLT 
(.FALSE.) 

DEFPLT 
(.FALSE.) 



FTSPLT 
(.FALSE.) 



Logical: Plot on the line plot device selected at load or link-edit time. 

Logical: Defer plots. The current plot is not printed so that subsequent 
plots can be built up on the same picture. This feature has been used 
to plot trajectories of both missile and target on the same grid, i.e. 

SET DEFPLT = .TRUE. 
PLOT 'XAXIS' = RM1, RM3 
SET DEFPLT = .FALSE. 
PLOT 'XAXIS' = RT1, RT3 

The first plots the missile trajectories with the x-axis, RM1. Then 
the deferred plot restriction is lifted and the second plot plots target 
trajectory RT1 versus RT2 and produces the output. Scale factors 
should be set so that the same scale factors are used for both target 
and missile trajectories. A useful feature here is the use of a symbolic 
name to imply the contents of the location denoted by the symbol. 

Line or Calcomp plots work similarly with the exception that the 
axes are not drawn while DEFPLT is .TRUE.. Thus it is important 
to be sure that the scales are the same since no indication will be given 
if they are not: The reason is the limited size of the plot image area so 
that scales cannot continue to be drawn without running out of room. 

Logical: Flyback trace suppressed on plots. If a number of parametric 
runs have been made - by cycling between the INITIAL and TERMINAL 
sections - they can be plotted and if this variable is TRUE, plotting 
is suppressed and the symbol is incremented on flyback. The flyback is 
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NPPPLT 

(3) 

PRNPLT 
(.TRUE.) 

STRPLT 
(.FALSE.) 



determined from the first variable on the PREPARe list. When the 
difference between successive values becomes negative it is assumed that 
a new run has started. Normally, the independent variable is made the 
first variable on the PREPARe list. 

Integer: Number of plots per page used when invoking the PLOT 'ALL' 
command and controls the number of variables plotted per drawing. 

Logical: Plot on printer 

Logical: Plot on line device in strip chart form. Normally one 

variable per axis set stacked in reverse order to that on the command line. 



2. Refers to Printer Plots 

CGDPPL Integer: Character for the grid in the printer plot. Set to be a period. 

(47) Note, it can only be changed by knowing the character value as an integer, 

not by quoting. 

NGXPPL Integer: Number of points between grid lines in the x-direction for printer 

(20) plots. Nominal setting sets a grid of periods every twenty characters. 

NGYPPL Integer: Same as NGXPPL in y direction. 

(10) 

NPCPPL Integer: Number of points per character plotted on the printer: This feature 

(1) can be used for placing time ticks on a phase plane plot, i.e. 

SET DEFPLT = .TRUE. 

PLOT 'XAXIS' = X, Y 

SET DEFPLT = .FALSE., NPCPPL = 10 

PLOT 'XAXIS' = X, Y, 'CHAR' = '*' 

The first plots Y against X using values recorded every communication interval 
but the output is deferred. The plot frequency is changed and the second plot 
is plotted over the first, with a different character so flagging every tenth 
point. 

NPXPPL Integer: Gives number of points in the x direction for printer plots. For 

(100) square plots make this six tenths of the y direction points. 

NPYPPL Integer: Gives number of points in the y direction for printer plots. For 

(100) narrow terminals this will be reduced to fifty. 



3. Refers to Line or Calcomp Plots 

GRDCPL Logical: When set TRUE, draw grid lines from each tick mark on the axes. 

(.FALSE.) 

LINCPL Logical: Draw lines between points for the line plots. The lines between 

(.TRUE.) points can be suppressed by making this variable .FALSE.. Note if both 

SYMCPL and LINCPL are false, nothing will be plotted. 
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NPCCPL Integer: Number of points per character on the line plots. In this case 

(10) a symbol is written every ten points plotted. Used for time ticks on phase 

plane plots. 

PSFCPL Real: Plot scale factor for line plots. The overall size of the plot, including 

(1.0) axes and lettering can be made smaller (or larger) by changing this factor. 

SATCPL Logical: Suppress axis text. Allows the axes and tick marks to be drawn 

(.FALSE.) but suppresses all numbers and labels for speed in repetitive plots. 

SYMCPL Logical: Plot symbols on the curve. Characters will be centered over the 

(.FALSE.) point and will correspond to the normal FORTRAN character set. Special 

symbols can be obtained as follows: 

QA +XOtXZ YX 

123456789 10 



11 



12 



13 



TBRCPL 

(9600) 

TTLCPL 
(.TRUE.) 



XCICPL 

(0.0) 

XINCPL 

(5.0) 

XTICPL 
(1.0) 

YCICPL 

(0.0) 

YINCPL 

(5.0) 

YTICPL 

(1.0) 



which correspond to asking for special characters such as 'CHAR'='%'. The 
actual characters available are installation dependent so see local addendum. 
If symbols are plotted for every point, they are usually over-written and 
confused (so see item NPCCPL). 

Integer: Baud rate of channel to line plot device. Normally needed for 
Tektronix plotters. Note must be set before the first PLOT command when 
the plot device is initialized. 

Logical: Title on line plots. The full 120 character title array is written 
at the top of each plot in three lines of forty characters each. The last 
line overlaps into the plot area. Since most of TITLE is not often used, 
trailing blanks in TITLE may result in fewer than three lines being written. 

Real: X-axis cross position. Position on x-axis (in inches) where last 
y-axis is positioned. 

Real: X-axis length in inches for line plots. 

Real: X-axis tick increment in inches for line plots. 

Real: Y cross inches for line plots. This dimension is where the x-axis is 
drawn on the page. Normally at the bottom, it can be raised up to ten inches. 
Negative values will send the plotter into limit. 

Real: Y-axis length in inches for line plots. 

Real: Y-axis tick increment in inches for line plots. 
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4. Refers to Strip Plots 

GRDSPL Logical: Draw grid lines from each axis tick on strip chart plots. 

(.FALSE.) 

LINSPL 
(.TRUE.) 

NPCSPL 

(10) 

PSFSPL 
(1.0) 

SATSPL 
(.FALSE.) 

SYMSPL 
(.FALSE.) 

TTLSPL 
(.TRUE.) 

XCISPL 

(0.0) 

XINSPL 

(5.0) 

XTISPL 

(1.0) 

YASSPL 

(0.5) 

YCISPL 

(1.0) 

YINSPL 

(2.0) 

YTISPL 

(1.0) 



Logical: Draw lines between points on strip chart plots. 

Integer: Number of points per character or symbol on strip chart plots. 

Real: Plot scale factor for the strip chart plots. 

Logical: Suppress axis text. Allows the axes and tick marks to be drawn but 
suppresses all numbers and labels for repetitive plots. 

Logical: Plot symbols on the curve. The symbols will correspond to those 
given for SYMCPL. 

Logical: Draw a title over the strip plots. Three lines of forty characters 
each. 

Real: X-axis cross position. Position on x-axis (in inches) where y-axis 
is placed. 

Real: X-axis length in inches for strip chart plots. 

Real: X-axis tick increment in inches for strip chart plots. 

Real: Y-axis separation between successive axes stacked vertically. 

Real: Y-axis cross position. Position on y-axis (in inches) where the x-axis 
is placed. 

Real: Y-axis length in inches for strip chart plots. 

Real: Y-axis tick increment in inches for strip chart plots. 



5. Refers to Print Data 

HVDPRN Logical: High volume data to display unit. Ensures all data written on PRN 

(.FALSE.) unit is also copied on the DIS unit if different. 

MALPRN Integer: Maximum array length. For debug output all arrays were normally 

(10) listed. In order to control the amount of output, this variable was added 

that suppresses listing of the contents of any array longer than this value. 

The last element only will be listed to show that it is present and to indicate 

the array length. 

TCWPRN Integer: Terminal character width. Controls the line width of any data written 

(132) on the display (DIS) logical unit. For basically interactive machines such 

as DEC VAX/1 1 the default is changed to 72. 
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6. Integration Control 

CIOITG Integer: Current integration order. Calculated by the program it may be 

(...) OUTPUT or PREPARed so that the integration order may be followed when 

using one of the variable order, variable step integration routines (IALG = 

1 or 2). 

CSSITG Real: Current step size. Calculated by the program it may be OUTPUT or 

(. . .) PREPARed so that the actual integration step size may be followed as explained 

previously (CIOITG). 

MXOITG Integer: Maximum order. The maximum order of the integration algorithm 

(6) may be specified between 1 and 6 when using the variable order, variable step 

integration routines. 

NRWITG Logical: No rewind. When this flag is true the data file containing the 

(.FALSE.) value of all the variables on the PREPARe list is not rewound immediately 

after a START. Data from sequential runs is then accumulated rather than 
being written on top of the previous data, thereby erasing it. 

TSMITG Logical: Two sided matrix evaluation. The stiff integration algorithm 

(.FALSE.) (IALG = 2) needs to evaluate the linearized state transition matrix. If 

the state equation is dx/dt = F(x), then two sided is obtained from F(x+dx) 
and F(x-dx); single sided from F(x) and F(x-dx). While two sided is more 
accurate than single sided, it requires twice as long to evaluate the complete 
matrix. 

WESITG Logical: Write error summary. At the end of a run using the variable order, 

(.TRUE.) variable step integration routines (IALG = 1 or 2) the option exists to list 

all the states along with the count of the number of times each state controlled 
the integration stepsize. Normally true, this data may be suppressed by 
setting WESITG false. 



7. General 

CMD 

(5) 

DIS 

(6) 

NDBUG 

(0) 

PLT 

(9) 

PRN 

(6) 



Integer: Logical unit from which run-time commands are read. May only be 
five, six or nine on Control Data computers. See local installation guide. 

Integer: Logical unit on which display data is written out on. Output from 
DISPLY, RANGE and OUTPUT commands. Allowed values depend on 
machine and installation. 

Number of derivative evaluations that will have DEBUG output tied to them. 

Integer: Logical unit for line plot output (when CALPLT is .TRUE.). Device 
and installation dependent - see local installation guide. 

Integer: Logical unit on which high volume data is written out. All data 
written on unit DIS is echoed on unit PRN if different. In addition printer 
plots and PRINT command output are only written on this file. Allowed values 
depend on machine and installation. 
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RRR Integer: Logical unit on which intermediate data is written out. Allowed 

(8) values depend on machine and installation. 

TITLE Hollerith: Up to 120 characters may be set into this array which is listed 

(blank) at the top of each page. Hollerith data must be quoted. 
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APPENDIX D 
QUICK REFERENCE GUIDE FOR ACSL OPERATORS 



Tables D-l, D-2 and D-3 list the operators available in the model definition section, the run-time 
executive commands and the system constants. 

Throughout the model definition operators, X is a real expression, J is an integer expression. An 
expression can be a signed or unsigned constant, a variable or array name, or any combination formed into 
a legal expression. 



TABLE D-1 . 


Summary of ACSL Model Definition Statements 


Statement 


Explanation 


ABS(x) 


Absolute value 


ACOS(x) 


Arc-cosine; result in radians 


AINT(x) 


Integer part of real expression x 


ALGORITHM IALG = 5 


Define integration algorithm 


ALOG(x) 


Natural logarithm 


ALOGlO(x) 


Logarithm to base ten 


AMAX0Gl,j2...) 


Real maximum of integer expressions, jj 


AMAXl(xl,x2 . . .) 


Maximum of given string of expressions, Xj 


AMIN0(jl,j2...) 


Real minimum of integer expressions, jj 


AMINl(xl,x2 . . .) 


Minimum of given string of expressions, Xj 


AMOD(xl,x2) 


Remainder when xl is divided by x2 


ARRAY v(l, 2, 3), . . . 


Specifies up to three dimensions 


ASIN(x) 


Arc-sin; result in radians 


ASSIGN k TO m 


Used before a GO TO m branch 


ATAN(x) 


Arc-tangent-result in radians 


ATAN2(y, x) 


Angle in radians between x-axis and point (x, y) 


BCKLSH(ic, dl, x) 


Backlash or hysteresis 


BOUND (11, ul, x) 


Limit expression x to be between lower and upper limits 


CALL name 


Invoke subroutine 


CINTERVAL CINT = 0.1 


Define name and value for communication interval 


CMPXPL(p, q, x, icl, ic2) 


-i- — • \-(C\\ — \r\ • vffVl — ir° 


ps 2 + qs + 1 
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TABLE D-1 . Summary of ACSL Model Definition Statements — Continued 



Statement 


Explanation 


COMMENT 


Enclose statement in quote for comment 


CONSTANT d = a 


Set constant d to value a 


CONTINUE 


Do nothing - usually labelled 


COS(x) 


Cosine of expression x in radians 


DBGT 


Translator debug feature 


DBLINT(x, xd = ic, dd, die, 
U, ui ) 


Double integrator with limit 


DEAD(ii,uC ,x) 


Jtl 


A*° 


/ 


uX x 


DELAY(x, ic, tdl, nmx) 


Delay expression x through fixed time tdl 


DERIVATIVE 


Begins block evaluating state variable derivatives 


DERIVT(ic, x, T) 


Differentiate expression x: WARNING should not be used unless 
absolutely necessary 


DIM(xl,x2) 


Difference (xl - x2)if positive, else zero 


DISCRETE 


Begins block representing a DISCRETE event 


DO 1 j = 1, n 


Start of DO-loop 


DYNAMIC 


Begins section entered every communication interval 


END 


Must complete each section, block or PROCEDURAL 


EQUIVALENCE(mv, v) 


Equivalence names to same location 


ERRTAG ERR 


Defines name for variable to indicate integration error 


EXP(x) 


Natural exponent of expression x 


EXPF(ic, r, on) 


Rise and fall between 0.0 and 1.0 on exponential with time constant 


FCNSW(p,x 1 ,x 2 ,x 3 ) 


Function switch 


FORMAT(. . .) 


Format description for READ, WRITE or PRINT statements 


GAUSS(m, s) 


Normally distributed random variable, given mean, m, and standard 
deviations. 


GAUSIG) 


Initialize random number seed 


GOTO 1 


Transfer control to statement labelled 1 


HARM(tz, w, p) 


Output is sin(w*(T - tz) + p)); T>tz else 0.0 


IABSG) 


Absolute value of integer expression j 
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TABLE D-1. Summary of ACSL Model Definition Statements — Continued 



Statement 


Explanation 


IDIM(jl,j2) 


Integer positive difference of integer expression jl and j2 


IF(lexpr) statement 


If logical expression, lexpr is .TRUE., execute statement 


IMPL(yz, e, m, cfl, f(y), yd) 


Solves implicit equation f(y) = y 


INITIAL 


Begins section executed at beginning of every run - after each 
START command 


INT(x) 


Integer part of real expression x 


INTEG(xd, xic) 


Integrates derivative xd given initial value xic 


INTEGER 


Defines type (and size) for variables, functions (and arrays) 


INTVC(xd, xic) 


Integrates vector derivative xd given initial value vector xic. 
State, derivative and initial condition may be names only - arrays 
must be same size 


ISIGN(jl,j2) 


Absolute value of integer expression j 1 times a sign of integer 
expression j2 


LEDLAG(p, q, x, ic) 


i-ZVr «»•*+** 


LIMINT(yd,ic,!t u!) 


Limited integrator 


LINES(i, *TOF) 


Inform top-of-page manager i lines are about to be written. 
Optional 'TOP 


LOG 


Forces data recording action when called as subroutine 


LOGICAL 


Defines type (and size) of variables, functions(and arrays) 


LSW(p, tv, fv) 


Logical or integer switch 


MACRO 


Begins macro definition 


MAX0(jl,j2...) 


Maximum of integer expression jl, j2 . . . 


MAXl(xl,x2 . . .) 


Integerized maximum of real expression xl, x2 . . . 


MAXTERVAL MAXT = 

1.0E+10 


Defines name and value of maximum calculation interval 


MERRORX=0.001, . . . 


Defines allowed relative error for state variables 


MIN0Gl,j2...) 


Minimum of integer expressions j 1 , j2 . . . 


MINl(xl, x2 . . .) 


Integerized minimum of real expressions xl, x2 . . . 


MINTERVAL MINT = 
1.0E-10 


Defines name and value of minimum calculation interval 


MODGl,j2) 


Remainder when integer expression j 1 is divided by integer 
expression j2 



Cont. 
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TABLE D-1 . Summary of ACSL Model Definition Statements — Continued 



Statement 


Explanation 


MODINT(yd, ic, 11, i2) 


Moded integrator 


Ll 








T F 




T 


OPER HOLD 




L2 








NSTEPS NSTP = 10 




F 


RESET OPER 




Define name and value of number of steps (calculation intervals) 
in a communication interval - overridden by MAXT and MINT 


OU(t, m, s) 


Band limited white noise, mean m, standard deviation, s: break 




frequency 27r/r Hz 


OUTPUT(vl,v2 . .. .) 


Record values of Vj each communication interval 


PREPAR(vl, v2 . . .) 


Save values of Vj on prepare file, each communication interval 


PRINT n, L 


Print list L according to FORMAT n. Precede with LINES(i) 


PROCEDURAL(yl, y2 = 

xl, . . .) 


Begins block whose order is to be maintained. The block will be 
placed before statementsjusing the yj and after those calculating 
the Xj 


PROGRAM text string 


First card of model definition deck. No dollar sign in text. 


PTR(x, y = r, 0) 


x = r cos 6; y = r sin 8 


PULSE(tz, p, w) 


i 


-LO 

i 


-w- 


P — » 












1 A 1 


QNTZR(p, x) 






^ - 


X 




X 


x - P/2 y 


RAMP(tz) 
READ n, L 




■■A- 


Read list 


L according to FORMAT n 


REAL 


Define type (and size) of variables, functions (and arrays). 
Assumed default for all names in program. 


REALPL(p, x, ic) 


y 1 

-L = — y (0) = ic 

x ps+ 1 
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TABLE D-1 . Summary of ACSL Model Definition Statements — Continued 



Statement 


Explanation 


RESET(a) 


Used in INITIAL section to transfer initial condition array 
to state array. Argument must be 'EVAL' or 'NOEVAL' 


RSW(p, tv, fv) 
RTP(r, d = x, y) 


Real 
r => 


switch 




/x 2 + y 2 ; 6 = ATAN2(y, x) 


SAVE 


Save current macro tables on the macro file 


SCALE(dmn, dmx = 
ymn, ymx) 


Convert ymx and ymn to scales on plots 


SIGN(xl, x2) 


Absolute value of expression xl, times sign of x2 


SIN(x) 


Sine of expression x - x in radians 


SQRT(x) 
STEP(tz) 


Squa 
i.o- 


re root of expression 


x: Error if negative 


i 




TABLE name,n,d/list/ 


Define arbitrary function of n variables, dimensions d - breakpoints 
and function values given in list 


TAN(x) 


Tangent of expression x - x in radians 


TERMINAL 


Begins section entered at termination of a run 


TERMT(lexpr) 


Identifies run termination condition; forces transfer to TERMINAL 
section when logical expression, lexpr, is .TRUE. 


TRAN(nn, nd, qn, qd, x) 


Transfer function: nn is ORDER of numerator; nd is ORDER 
of denominator, nn and nd must be integer constants, qn and qd 
are arrays of coefficients of s for numerator and demoninator, 
high order coefficient first 


UNIF( Jt ,u) 


Uniform random number distributed between lower, 1, and upper, u. 


UNIFIQ 


Initialize seed for random number generator - changes same seed 
as GAUSI 


VARIABLE T = 0.0, 
TSC = 0.0 


Defines name and initial condition on independent variable 


XERRORX = 1.0E-4 


Define allowed absolute error for state variable 


ZHOLD(ic, p, x) 


Output is x if p is .TRUE., last value output if .FALSE. 


ZOH(x, ic, tz, dt, i) 


Periodic hold every dt seconds starting at tz 
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TABLE D-2. Summary of ACSL Run-Time Executive Commands 



Command 


Subcommands 


Explanation 


ACTION 


'VAR' = 
'VAL' = 
'LOC = 
'CLEAR' 


Schedule action 
Independent Variable (when) 
Value (what) 
Data location (where) 
Clear action list 


ANALYZ 


'FREEZE' = 
'EIGVEC = 
'EIGPER' = 
'DISPLY' = 
'LIST' = 
'RMSEMX' = 
'NITRMX' = 
'FRACMX' = 
'FRACDL' = 

'TRIM' 

'JACOB' 

'EIGEN' 


Hold value of state variables listed 

Calculate eigen vectors along with eigen values 

Calculate eigen finder performance 

List all output on display (DIS) unit 

List details of trim iteration 

Specify allowable error for trim convergence 

Specify maximum number of iterations during trim 

Specify maximum fractional change during trim 

Specify fraction of Newton-Raphson step taken during trim 
iteration 

Initiate the trim iteration 

Calculate and list the system Jacobian 

Calculate system eigen values 


CONTIN 




Continue to integrate 


DISPLY D 




Display values of named variables 


END 




Completes PROCEDure definitions 


MERROR 




Establish relative errors for given state variables 


OUTPUT 


'NCIOUT' = 
'CLEAR' 


Schedule names on list to have values listed during run 
Number of communication intervals between output 
Clear output list 


PLOT 


'ALL' 
'CHAR' = 
'HI' = 
'LO' = 


Printer and/or line plots and/or strip plots 
Plot all variables on prepare file 
Use given character for plot 
Specify upper y-axis value 
Specify lower y-axis value 



Cont. 
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TABLE D-2. Summary of ACSL Run-Time Executive Commands — Continued 



Command 


Subcommands 


Explanation 




'TAG' = 
'LOG' 
'OVER' 
'SAME' 
'XAXIS' = 
'XHI' = 
'XLO' = 
'XTAG' = 
'XLOG* 


Specify y-axis character tag string 
Use logarithmic scale for y-axis 
Overplot - no axis drawn 
Same scales for variables to left 
Specify X-axis variable 
Specify right-most x-axis value 
Specify left-most x-axis value 
Specify x-axis character tag string 
Use logarithmic scale for x-axis 


PREPAR 


'CLEAR' 


Schedule names on list to have values saved on prepare file 
during run 

Clear prepared list 


PRINT 


'NCIPRN' = 
'ALL' 


Select names on PREPARe list to have values listed in 
column form 

Number of communication intervals between print lines 

Print all variables on PREPARe file 


PROCED 




Define beginning of procedure block. Terminated by END. 


RANGE 


'ALL' 
'IHI' = 
'ILO' = 
'IVAR' = 


Print maximum and minimum values of selected variables 
on PREPAREe list 

Determine range for all variables on PREPARe list 

High value for independent variable 

Low value for independent variable 

Define independent variable 


REINIT 




Reinitialize initial conditions to current state 


RESTOR 




Restore data area from any named file 'fn' 


SAVE 




Save data area on a named file 'fn' 


SET(S) 




Set values of constants 


SPARE 




Links to FORTRAN subroutine of that name: Library routine gives 
central processor time used and that elapsed since last call 


START 




i 

Start simulation run 


STOP 




Terminate simulation study 


XERROR 




Establish absolute errors for given state variables 
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TABLE D-3. Executive System Variables 



Name 


Default 


Explanation 


CALPLT 


.FALSE. 


Draw line plots 


CGDPPL 





Character for grid - printer plots 


CIOITG 




Current integration order - integration control 


CMD 


5 


Logical unit executive commands are read from 


CSSITG 




Current step size - integration control 


DEFPLT 


.FALSE. 


Defer output of plot 


DIS 


6 


Logical unit for display output 


FTSPLT 


.FALSE. 


Flyback trace suppression (channel 1) for all plots 


GRDCPL 


.FALSE. 


Grids on line plots 


GRDSPL 


.FALSE. 


Grids on strip plots 


HVDPRN 


.FALSE. 


High volume display 


LINCPL 


.TRUE. 


Draw lines between points - line plots 


LINSPL 


.TRUE. 


Draw lines between points - strip plots 


MALPRN 


10 


Maximum array length printed by debug 


MXOITG 


6 


Maximum integration order 


NDBUG 





Debug listing forced if greater than zero 


NGXPPL 


20 


Number of points between grid lines in x direction 


NGYPPL 


10 


Number of points between grid lines in y direction 


NPCCPL 


10 


Number of points between characters - line plots 


NPCSPL 


10 


Number of points between characters - strip plots 


NPPPLT 


3 


Number of plots per page - 'ALL' plots 


NPXPPL 


100 


Number of points in X direction - printer plots 


NPYPPL 


100 


Number of points in Y direction - printer plots 


NRWITG 


.FALSE. 


No rewind of RRR file before run STARTs 


PLT 


9 


Logical unit number for plot output 


PRN 


6 


Logical unit number for high volume output 


PRNPLT 


.TRUE. 


Draw printer plots 


PSFCPL 


1.0 


Plot scale factor - line plots 


PSFSPL 


1.0 


Plot scale factor - strip plots 


RRR 


8 


Logical unit for prepare file - raw run record file 


SATCPL 


.FALSE. 


Suppress axis text - line plots 



Cont. 
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TABLE D-3. Executive System Variables — Continued 



Name 


Default 


Explanation 


SATSPL 


.FALSE. 


Suppress axis text - strip plots 


STRPLT 


.FALSE. 


Draw strip plots 


SYMCPL 


.FALSE. 


Plot symbols on line plots - every NPCCPL points 


SYMSPL 


.FALSE. 


Plot symbols on strip plots - every NPCSPL points 


TBRCPL 


9600 


Terminal baud rate for graphics 


TCWPRN 


132 


Terminal character width 


TITLE 


BLANK 


Array of 120 characters printed at page top 


TSMITG 


.FALSE. 


Two sided matrix evaluation of Jacobian 


TTLCPL 


.TRUE. 


Draw title on line plots 


TTLSPL 


.TRUE. 


Draw title on strip plots 


WESITG 


.TRUE. 


Write error summary - integration control 


XCICPL 


0.0 


X-axis crosses in inches - line plots 


XCISPL 


0.0 


X-axis crosses in inches - strip plots 


XINCPL 


5.0 


Length of X-axis in inches - line plots 


XINSPL 


5.0 


Length of X-axis in inches - strip plots 


XTICPL 


1.0 


X-axis tick increment - line plots 


XTISPL 


1.0 


X-axis tick increment - strip plots 


YASSPL 


0.5 


Y-axis separation - strip plots 


YCICPL 


0.0 


Y-axis crosses in inches - line plots 


YCISPL 


1.0 


Y-axis crosses in inches - strip plots 


YINCPL 


5.0 


Length of Y-axis in inches - line plots 


YINSPL 


2.0 


Length of Y-axis in inches - strip plots 


YTICPL 


1.0 


Y-axis tick increment - line plots 


YTISPL 


1.0 


Y-axis tick increment - strip plots 
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APPENDIX E 
EXAMPLE CONTROL CARDS 

This manual is accompanied by a separate booklet or addenda that gives a detailed description of how 
to use ACSL within the particular operating environment of your computing system. Since operating system 
commands differ from manufacturer to manufacturer, and even within competing groups from the same 
manufacturer, it is impossible to describe the details for all machines. As far as the ACSL program is 
concerned, it is machine transportable and models defined on one machine should produce the same results 
when run on another. Of course, numerical precision will vary somewhat. The main difference the user must 
be aware of is the characters per word when SET-ting individual elements of the TITLE array. 

In order to provide some idea of how the program is actually run, this section shows the command 
sequence or deck set up when running under the NOS operating system with a CDC 6000 or CYBER 70 
machine. 

1 . Batch Operation 

Your job card 

ACCOUNT (your account number, password) 

CHARGE (charge number) 

GET (ACSL/UN = ACSLSYS) 

ACSL (I = INPUT, PLT = UNI) 

SAVE (PLFILE) 

7/8/9 - end of record 

} ACSL model definition program 

7/8/9 - end of record 

I 
ACSL run-time control cards 

6/7/8/9 - end of information 

This sequence will exercise the model under the command of the run-time drive cards, producing output 
on the line printer. Any line or strip plots will be written on an intermediate plot file (PLFILE) for later 
processing by UNIPOST 
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2. Terminal Operation 

Log on - enter account number, then password 

charge(your charge number) 

get(acsl/un =acslsys) 

acsl(i=model) 

?set prn=9 \ 

etc \ ACSL run-time commands 

?end J 

route(print,dc = pr) 

bye 

This sequence will exercise the model, the definition statements for which have been prestored on file 
'MODEL'. Low volume data will be presented on the terminal, high volume being disposed of to a local line 
printer as the last operation. 
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APPENDIX F 
ACSL ERROR MESSAGES 

The following lists the error messages that can be produced during the translation phase of the program 
together with amplification and possible causes. 

1 . ACSL Translator Error Messages 

BAD BREAKPOINT SPEC 

The number of arguments specified in the TABLE statement is not 1 , 2 or 3 or the number of breakpoint 
integers given does not correspond with the number of arguments. 

BAD FUNCTION DATA COUNT 

The number of data items in the TABLE statement (between slashes) does not add up to the total length 
expected - product of dimensions plus sum of dimensions. 

CONFLICTING DATA TYPE 

The identifier indicated in the error message is being used in a way that conflicts with an earlier usage. 
Some examples are: 

1) Attempt to use a label as a variable 

2) Using the variable in two different type declarations 

3) Using "States" or "ICs" in logical or integer typing statements 

4) Using duplicate "ICs" in separate INTEG statements 

CONFLICTING LABEL NAME 

The identifier indicated in the error message is either a variable being used as a statement label, or a 
previously defined label. 

DIMENSIONS ALREADY SET 

Attempt to define the dimensions of a previous dimensioned array. 

EQUIVALENCE ERROR 

Usually caused by not realizing the special place occupied by the first variable in the EQUIVALENCE 
list which is used, in the ACSL sense, as a primary variable. This variable must always appear first on 
the list for any subsequent EQUIVALENCE statements into the same array. Another cause is 
equivalencing the same secondary variable to two different primary variables. System variables such as 
CINT, MAXT, state, derivative and initial condition variables must be given as primary variables 

ILLEGAL BLOCK COMBINATION 

An ACSL block delimiter (PROGRAM, INITIAL, END, etc) was encountered, out of the proper 
sequence. 

ILLEGAL DERIVATIVE DEFINITION 

Derivative arrays are not allowed except in INTVC statements. 

INSUFFICIENT REGION FOR TRANSLATION 

Insufficient field length for ACSL to attempt translation. Always fatal. Increase memory region parame- 
ter and resubmit job. 
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INTEG NOT IN SORT BLOCK 

Integration statements must be in a DERIVATIVE block (an implicit PROGRAM . . . END structure 
is synonymous with a DERIVATIVE block) rather than the INITIAL, DYNAMIC or TERMINAL 
section. Usually caused by an END mismatch which terminates a block inadvertently. May also be 
caused by an integration statement inside a PROCEDURAL . . . END block nested to level two or 
higher. 

MACRO ARGUMENT ERROR 

Error in the macro definition and attempting to invoke the macro, or the computed argument number 
for the main argument is less than "1" or greater than the original number of arguments. 

MACRO NOT DEFINED 

Attempt to use a macro which has not been defined. The syntax of the statement indicates a macro is 
present but the macro is not found in the macro file. 

MACRO NOT INVOKED 

Attempt to use an "ASSIGNED" variable when variable was not defined in an ASSIGN statement. 

MACRO STATEMENT ORDER ERROR 

During macro expansion: No standard value for an unspecified macro argument, or an attempt to use 
the dimensions of an undimensioned argument. 

MISSING DERIVATIVE STATEMENT 

An INTEG statement is missing for some element of a state array. 
MULTIPLY DEFINED SYMBOL 

The named variable has previously been assigned a value in this sort block or derivative section. 
NO RIGHT SIBLING 

Internal ACSL system error during syntax analysis. Report to system staff with example. 

NO TABLE SPACE LEFT 

Insufficient field length for ACSL to continue running. Usually caused by the use of a large number of 
variables in a large program. Can also be caused by arithmetic loops encountered in statement sorting. 
An increase in field length of 10K should be more than sufficient in most cases. Always fatal. 

OUTSIDE TABLE LIMIT 

A system error in the ACSL translator. Report to system staff with example. 

PARAMETER NOT FOUND 

Attempt to assign a standard value to a variable other than one of the main arguments in a MACRO 
definition. 

PROC. ENDED INCORRECTLY 

An ACSL block delimiter, other than "END", was found inside a "PROCEDURAL" block. 

PREMATURE END OF FILE 

An end of file was encountered on the translator input file before the logical end of the ACSL source 
program was found. Implies an incomplete program or a missing END statement. 

TaBlE already defined 

The table name has already been used in another context prior to the current table definition. Either as 
a simple variable, another TABLE definition or simple use. TABLE functions must be defined before 
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their first use since otherwise the translator cannot distinguish the use from normal FORTRAN func- 
tions. 

TOO MANY CHARACTERS 

The truncated identifier, indicated by the message, contains more than 6 characters. Translation contin- 
ues with the truncated version of the identifier. 

TOO MANY ENDS 

Statements remain on the input file after the final END of the ACSL program. The remaining 
statements are listed but not processed. Implies that too many END statements were included in the 
program, or that statements were misplaced, or that FORTRAN routines are included with the source 
deck but don't start with SUBROUTINE, FUNCTION, INTEGER FUNCTION, etc. 

UNSORTABLE STATEMENT BLOCK 

An arithmetic loop was encountered during sorting, and is listed below the message. The statements will 
not appear on the compile file, but the statements which depend on this block will. 

VARIABLE NOT DIMENSIONED 

The variable indicated in the error message is being used as an array without being declared as such by 
an ARRAY, DIMENSION or other such typing statement. 

WRONG DIMENSIONS 

Attempt to use an array with more than 3 subscripts. 

2. RUN-TIME ERROR MESSAGES 

Run-time error messages produced by the ACSL executive processing the model drive cards, are as 
follows: 

CAN-T FIND ARRAY ELEMENT IN name 

A reference has been made to a particular array element that doesn't exist or has already been deleted 
once before by a preceding FREEZE. 

CAN-T FIND name 

The 'name' does not appear in the dictionary or in the case of PLOT, PRINT or RANGE commands, 
might not have been included on the PREPAR list. 

CAN-T SATISFY ERROR CRITERION 

The integration algorithm has decided it needs to take a step smaller than MINT to keep the largest 
error within bound. Must be acknowledged with ERRTAG (q.v.) or the simulation run will stop. 

CANNOT TRIM WITH DELAY FUNCTION 

An attempt has been made to use the TRIM subcommand of ANALYZ. The Jacobian is in error if 
DELAY functions are used in the model. 

CONSTANT COLUMN - NUMBER IS n 

In trying to invert the Jacobian, a constant column has been identified and indicated by numeric value 
into the list of unfrozen state variables. Usually the result of keeping a state variable in the iteration that 
has no influence on any other part of the model. 

CONSTANT ROW - NUMBER IS n 

In trying to invert the Jacobian, a constant row has been identified. Usually the result of keeping a state 
variable in the iteration with a constant (may be zero) derivative. 



F-3 



END OF COMMAND FILE ENCOUNTERED 

An end of file has been sensed on the file identified by logical unit CMD. The simulation study is 
terminated and control reverts to the operating system. 

ERROR AFTER name 

Some sort of syntax error has been determined after the given 'name' appears on the command card 
image. Trying to specify NCI by a real number (2.0 for example): 'CHAR' value as a logical for instance. 

ERROR IN EIGEN ANALYSIS ROUTINE 

ERROR NUMBER IS n 

An error was made in trying to determine the eigen values of the Jacobian matrix. See error listing for 
eigen analysis routine actually used. 

FILE LENGTH TOO SHORT 

The RESTORe command found the data block did not match the user block length. Usually caused by 
attempting to RESTORe a file SAVEd from a previous translation run. Changes to the ACSL program 
will invalidate previous assignments. 

FILE NAME SHOULD BE QUOTED 

The argument for the SAVE/RESTORe commands should be a valid file name in quotes, i.e. 

SAVE 'JOE' 

File names should start with a letter and contain no more than six characters (letters or digits) 

ILLEGAL COMMAND WORD 

The command word starting the statement is not in the standard list nor is it the name of any PROCE- 
Dure established. 

ILLEGAL DATA TYPE FOLLOWING name 

Something is wrong with the command following the symbol 'name' and before any following symbol. 

INDEPENDENT VARIABLE CHANGED IN JACOBIAN EVALUATION name 

A state variable has been modified inside the DERIVATIVE section used to calculate the Jacobian. 
Since the Jacobian evaluator uses numerical perturbation of the unfrozen state variables, any other 
modification will invalidate the calculation. 

INSUFFICIENT AREA FOR DELAY FUNCTION 

The array length specified in one of the DELAY functions is too small to accommodate all the data points 
needed. Usually produced when the model goes through a region requiring a very small step size. 

INSUFFICIENT DATA 

The statement is terminated when data was expected. 

JACOBIAN DETERMINANT ZERO, CAN-T TRIM 

The TRIM subcommand of ANALYZ has found that the Jacobian has a zero determinant so the 
Newton-Raphson iteration can't proceed. Using FREEZE prior to the TRIM can usually eliminate the 
offending state. 

LINE PLOT LIBRARY NOT LOADED 

An attempt has been made to make line plots (PLOT with CALPLT true) without instructing the loader 
or link-edit program to substitute the appropriate device driver. See local addendum for devices available 
and JCL or system control cards required. 
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LINEAR ANALYSIS ROUTINE NOT LOADED 

An attempt has been made to use the run time command ANALYZ without ensuring that the routines 
are present to handle the command. Due to infrequent usage, the normal default is to omit the routines 
that handle the ANALYZ command in order to save memory and load time. See local addendum for 
JCL required to instruct the loader or link-editor to link in the appropriate modules. 

LIST DOESN'T CONTAIN name 

One of the ANALYZ subcommands is looking for a variable in a list. For instance FREEZE can only 
apply to state variables. 

NAME ALREADY DEFINED 

In using LISTD to process a set of dictionary definitions, the same variable name has appeared twice. 
Usually caused by omitting continuation digits from column ten (10) for long definitions. 

NAME ALREADY IN DICTIONARY 

In using BLDDCT to extend to the ACSL dictionary an attempt was made to add a name already present 
in the dictionary. 

NAME FOR PROCEDURE NOT GIVEN OR ILLEGAL 

The procedure name is not of the correct form following the PROCED command. 

NAME MUST PRECEDE DATA 

A data item is given before a name has been established to store the value in, i.e. 

SET A = 2.0 is alright 

but SET 2.0 = A is wrong 

NAME OR ELEMENT NOT ON PREPAR LIST - name 

One of the commands that refers to the PREPAR list (PLOT, PRINT, RANGE, etc) has a variable 
name or array element in the list that was not included in the original PREPAR command i.e. PREPAR 
Y(2), Y(3) followed later by PLOT Y(l). 

NEED A NAME FIRST 

Modifiers to one of the plot variables refer to a preceding symbol. If no symbol is given it is an error, 
i.e.. 

PLOT 'LO' = 0.0 'HF = 5.0, Yl is incorrect 

NO MORE TABLE SPACE, MAX LENGTH USED IS i 

The run time table space manager has run out of space and the simulation study must be aborted. 
Frequently associated with using the stiff integration algorithm which needs 2N squared words, where 
N is the number of the state variables. See local addendum for mechanism to increase table space at 
run-time. 

NO SPACE LEFT IN DICTIONARY FOR name 

In attempting to extend the user dictionary with BLDDCT, the common block space designated for the 
dictionary has been filled and no more names can be added. Length may not have been established with 
NITBLD. Extend the length of the dictionary common block/ZZDCT/ in the user supplied main 
program. 

NO USER SUPPLIED INTEGRATION ROUTINE 

An attempt has been made to use integration algorithm seven (IALG=7) without supplying a subroutine 
INTEG to handle the integration. 
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REFERENCE OUT OF LIMIT OF ARRAY name 

An array element is referred to that is outside the declared size of the array. In a SET command 
sequential data items go into succeeding slots of an array. Each is checked to make sure the array bound 
is not exceeded, i.e., if A is an array of size five, the following 

SET A(3) = 1.5,2.5,5.0,6.0 

would produce this message since the 6.0 is to be stored in A(6). 

REFERENCE TO NON-STATE VARIABLE name 

An attempt has been made to specify error tolerances with XERROR or MERROR for a variable that 
is not a state variable. Check names in state list from debug output. 

RESCALE NOT IMPLEMENTED 

Reference has been made to the old ACSL system symbols RSCCPL, RSCPPL or RSCPLT that were 
supposed to cause dynamic rescaling within a plot. This feature was eliminated at level 6M. 

STEP SIZE TOO LARGE. STATE - n 

A zero determinant has been found in trying to invert the matrix (I + hA) in the stiff integration 
algorithm. Should never happen but may be fixed by reducing the allowable step size. 

SYNTAX ERROR X = Y++Y 

The statement is repeated and the line of asterisks stops where the first syntax error occurred. 

TAG TOO LONG AFTER name 

A TAG string on a PLOT command has too many characters. Actual number allowed will depend on 
machine type but all machines will accept twenty (20) character messages. 

TOO MANY ITERATIONS, CAN-T CONVERGE 

The TRIM sub-command of ANALYZ has failed to converge within the specified number of iterations. 
Either increase the numbers of iterations (NITRMX), reduce the convergence criteria (RMSEMX) or 
decrease the step (FRACDL). Use REINIT to hold on to any gains obtained with the current iteration. 

TYPE CONFLICT ON STORE INTO name 

The data does not agree with the predetermined type of 'name'. Logical data can only be .TRUE. (.T.) 
or .FALSE. (.F.). Integers are allowed into reals, but all other combinations are illegal. 

X-AXIS SCALES INCORRECT FOR LOG PLOTS 

Y-AXIS SCALES INCORRECT FOR LOG PLOTS on name 

The scale values are either negative or zero when making logarithmic plots. Usually the LO value must 
be specified since the normal rounding will change the LO axis marker to zero. 

ZERO PIVOT ELEMENT FOUND AT STATE INDEX n 

In using TRIM within ANALYZ, a zero determinant has been found when trying to invert the Jacobian. 
This message identifies the row number at which the zero pivot element first showed up and can 
sometimes be correlated to a state variable having a degenerate relationship with the rest of the model. 



F-6 



INDEX 



ABS 4-2 

Absolute Error at Runtime 5-6 

Absolute Errors 4-34 

Absolute Per Step Error 4-34 

Absolute Value 4-2,4-24 

Accumulated CP Time 5-12 

ACOS 4-3 

ACSL Examples A-l 

ACSL PROGRAM Card 4-41 

ACSL Program Flow Diagram 3-2 

ACSL Statements 4-1 

ACTION 5-2 

Adams-Moulton 4-3 

Addition 2-4 

AGET B-l 

AINT 4-3 

Aircraft Longtdnl Motion A-51 

Airframe Stability A-51 

Algebraic Loop 4-25 
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Communication Interval 4-8,1-5 

Complex Pole 4-10 

Concatenation 6-1,6-8 

Constants 2-1,4-1 1 

CONTIN 5-5 

CONTINUE 4-11 
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MAXTERVAL 4-34 

MERROR 4-34 

MINO 4-35 

MINI 4-35 
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Multiple Derivatives 4-14 

Multiplication 2-4 

MULTIPLY (MACRO) 6-4 
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RGET B-3 

RMSEMX Subcommand 5-3 

Round Scale Factors 4-45 

RRR C-6 

RSW 4-33 

RTP 4-44 
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SIN 4-46 

Sine Function , 4-46 

Sinusoidal Forcing Functn (HARM) 4-24 
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Write Error Messages (WEM) B-4 
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